Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Pattern-matching/EchoLisp/pattern-matching-2.echolisp
+++ b/Task/Pattern-matching/EchoLisp/pattern-matching-2.echolisp
@ -0,0 +1,8 @@
+(define (t-show n (depth 0))
+	(when (!eq? 'empty n)
+		(t-show (N-left n) (+ 12 depth))
+		(writeln (string-pad-left (format "%s" n ) depth))
+		(t-show (N-right n) (+ 12 depth))))
+
+(define T (for/fold [t 'empty] ([i 32]) (insert (random 100) t)))
+(t-show T)