A-M baby

Task/Loops-Nested/Scheme/loops-nested-1.ss

@@ -0,0 +1,12 @@
+(call-with-current-continuation
+ (lambda (return)
+   (for-each (lambda (a)
+	       (for-each (lambda (b)
+			   (cond ((= 20 b)
+				  (newline)
+				  (return))
+				 (else
+				  (display " ")(display b))))
+			 a)
+	       (newline))
+	     array)))

Task/Loops-Nested/Scheme/loops-nested-2.ss

@@ -0,0 +1,11 @@
+(let loop ((a array))
+  (if (pair? a)
+      (let loop2 ((b (car a)))
+	(cond ((null? b)
+	       (newline)
+	       (loop (cdr a)))
+	      ((= 20 (car b))
+	       (newline))
+	      (else
+	       (display " ")(display (car b))
+	       (loop2 (cdr b)))))))