Data commit

Task/Loops-While/Racket/loops-while-1.rkt

@@ -0,0 +1,5 @@
+#lang racket
+(let loop ([n 1024])
+  (when (positive? n)
+    (displayln n)
+    (loop (quotient n 2))))

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 1024)
+(while (positive? n)
+  (displayln n)
+  (set! n (sub1 n)))