Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
4
Task/Factorial/EchoLisp/factorial-1.l
Normal file
4
Task/Factorial/EchoLisp/factorial-1.l
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.l
Normal file
6
Task/Factorial/EchoLisp/factorial-2.l
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.l
Normal file
5
Task/Factorial/EchoLisp/factorial-3.l
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.l
Normal file
2
Task/Factorial/EchoLisp/factorial-4.l
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
(factorial 10)
|
||||
→ 3628800
|
||||
4
Task/Factorial/EchoLisp/factorial-5.l
Normal file
4
Task/Factorial/EchoLisp/factorial-5.l
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