Time for an 2014 update…

2014-01-17 05:32:22 +00:00 · 2014-01-17 05:32:22 +00:00 · 09687c4926
commit 09687c4926
parent 372c577f83
2520 changed files with 34227 additions and 7318 deletions
--- a/Task/Loops-While/Racket/loops-while-1.rkt
+++ b/Task/Loops-While/Racket/loops-while-1.rkt
--- a/Task/Loops-While/Racket/loops-while-2.rkt
+++ b/Task/Loops-While/Racket/loops-while-2.rkt
@ -0,0 +1,11 @@
+#lang racket
+(define-syntax-rule (while condition body ...)
+  (let loop ()
+    (when condition
+      body ...
+      (loop))))
+
+(define n 0)
+(while (< n 10)
+  (displayln n)
+  (set! n (add1 n)))