Добре дошли в DrRacket, версия 7.0 [3m].
Език: R5RS; memory limit: 128 MB.
3
> (my-if my#t 3 5)
3
> (my-if my#f 3 5)
5
> (my-if my#f (+ 1 2) (+ 2 3))
5
> (my-if my#f (/ 1 0) (+ 2 3))
"Image removed by tutor." "Image removed by tutor." /: division by zero
> (my-if my#f (lambda () (/ 1 0)) (lambda () (+ 2 3)))
#<procedure>
> (my-if my#f (lambda () (/ 1 0)) (lambda () (+ 2 3)))
5
> (my-if my#t (lambda () (/ 1 0)) (lambda () (+ 2 3)))
"Image removed by tutor." "Image removed by tutor." /: division by zero
> ((gamma 'empty) 0)
1
> ((gamma 'empty) 1)
"Image removed by tutor." "Image removed by tutor." application: not a procedure;
 expected a procedure that can be applied to arguments
  given: empty
  arguments
> ((gamma-inf) 2)
2
> ((gamma-inf) 5)
120
> ((gamma-inf) 10)
3628800
> ((gamma-inf) 50)
30414093201713378043612608166064768844377641568960512000000000000
> (fact 50)
30414093201713378043612608166064768844377641568960512000000000000
>