changed file and folder names to a sane scheme

This commit is contained in:
ikselven 2017-07-12 00:08:34 +02:00
parent c19129e6dd
commit b725343392
34 changed files with 44 additions and 0 deletions

23
e0002/euler0002.jl Executable file
View file

@ -0,0 +1,23 @@
#!/usr/bin/julia
function euler002(limit)
prevFib = 1
fib = 1
fibSum = 0
while fib < limit
if fib % 2 == 0
fibSum += fib
end
nextFib = prevFib + fib
prevFib = fib
fib = nextFib
end
return fibSum
end
euler002(1)
@time euler002(4*10^6)

13
e0002/euler0002.rkt Normal file
View file

@ -0,0 +1,13 @@
#lang racket
(define (fib i)
(cond [(equal? 0 i) 1]
[(equal? 1 i) 2]
(else (+ (fib (- i 1))(fib (- i 2))))))
(define (fiblist it limit lst)
(cond [(equal? limit it) lst]
(else (fiblist (+ it 1) limit
(cons (fib it) lst)))))
(foldl + 0 (filter even? (fiblist 0 4000000 '())))