solution to 4.25

[sicp.git] / src / sicp / ex4_25.rkt

diff --git a/src/sicp/ex4_25.rkt b/src/sicp/ex4_25.rkt
new file mode 100644 (file)
index 0000000..20c4136
--- /dev/null
+++ b/src/sicp/ex4_25.rkt
@@ -0,0 +1,10 @@
+#lang racket
+
+#|
+
+The call (factorial 5) will never call 'unless' and will be recursively call 'factorial' for ever.
+
+It will work in a normal order language because none of the arguments of 'unless' are evaluated until
+they are used inside.
+
+|#
\ No newline at end of file