A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Loops-Nested/Logo/loops-nested.logo
+++ b/Task/Loops-Nested/Logo/loops-nested.logo
@ -0,0 +1,15 @@
+make "a mdarray [10 10]
+
+for [j 1 10] [for [i 1 10] [mdsetitem list :i :j :a (1 + random 20)]]
+
+to until.20
+  for [j 1 10] [
+    for [i 1 10] [
+      type mditem list :i :j :a
+      type "| |
+      if equal? 20 mditem list :i :j :a [stop]
+    ]
+    print "||
+  ]
+end
+until.20