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
4
Task/Factorial/EchoLisp/factorial-1.echolisp
Normal file
4
Task/Factorial/EchoLisp/factorial-1.echolisp
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
(define (fact n)
|
||||
(for/product ((f (in-range 2 (1+ n)))) f))
|
||||
(fact 10)
|
||||
→ 3628800
|
||||
6
Task/Factorial/EchoLisp/factorial-2.echolisp
Normal file
6
Task/Factorial/EchoLisp/factorial-2.echolisp
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
(define (fact n)
|
||||
(if (zero? n) 1
|
||||
(* n (fact (1- n)))))
|
||||
(remember 'fact)
|
||||
(fact 10)
|
||||
→ 3628800
|
||||
5
Task/Factorial/EchoLisp/factorial-3.echolisp
Normal file
5
Task/Factorial/EchoLisp/factorial-3.echolisp
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
(define (fact n (acc 1))
|
||||
(if (zero? n) acc
|
||||
(fact (1- n) (* n acc))))
|
||||
(fact 10)
|
||||
→ 3628800
|
||||
2
Task/Factorial/EchoLisp/factorial-4.echolisp
Normal file
2
Task/Factorial/EchoLisp/factorial-4.echolisp
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
(factorial 10)
|
||||
→ 3628800
|
||||
4
Task/Factorial/EchoLisp/factorial-5.echolisp
Normal file
4
Task/Factorial/EchoLisp/factorial-5.echolisp
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
(lib 'math)
|
||||
math.lib v1.13 ® EchoLisp
|
||||
(gamma 11)
|
||||
→ 3628800.0000000005
|
||||
Loading…
Add table
Add a link
Reference in a new issue