8 lines
104 B
Scheme
8 lines
104 B
Scheme
#lang scheme
|
|
|
|
;; square : number -> number
|
|
;; to produce the square of x
|
|
(define (square x)
|
|
(* x x))
|
|
|