2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Loops-Break/Common-Lisp/loops-break.lisp
+++ b/Task/Loops-Break/Common-Lisp/loops-break.lisp
@ -1,7 +1,4 @@
-(loop
-    (setq a (random 20))
-    (print a)
-    (if (= a 10)
-        (return))
-    (setq b (random 20))
-    (print b))
+(loop for a = (random 20)
+      do (print a)
+      until (= a 10)
+      do (print (random 20)))