9 lines
140 B
Racket
9 lines
140 B
Racket
#lang s-exp "../../lang/wescheme.rkt"
|
|
|
|
(require "double.rkt")
|
|
|
|
(check-expect (double 3) 6)
|
|
|
|
(check-expect (double (double (double 2))) 16)
|
|
|