Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
16
Task/Man-or-boy-test/EchoLisp/man-or-boy-test.echolisp
Normal file
16
Task/Man-or-boy-test/EchoLisp/man-or-boy-test.echolisp
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
;; copied from Scheme
|
||||
(define (A k x1 x2 x3 x4 x5)
|
||||
(define (B)
|
||||
(set! k (- k 1))
|
||||
(A k B x1 x2 x3 x4))
|
||||
(if (<= k 0)
|
||||
(+ (x4) (x5))
|
||||
(B)))
|
||||
|
||||
(A 10 (lambda () 1) (lambda () -1) (lambda () -1) (lambda () 1) (lambda () 0))
|
||||
→ -67
|
||||
(A 13 (lambda () 1) (lambda () -1) (lambda () -1) (lambda () 1) (lambda () 0))
|
||||
→ -642
|
||||
(A 14 ..)
|
||||
❗ InternalError : too much recursion - JS internal error (please, report it)-
|
||||
→ stack overflow using FireFox
|
||||
Loading…
Add table
Add a link
Reference in a new issue