Krautspace/project-euler
Archived
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

changed file and folder names to a sane scheme

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

11
e0014/euler0014.rkt Normal file
View file

@ -0,0 +1,11 @@
#lang typed/racket
(: collatz (-> Nonnegative-Integer (Listof Nonnegative-Integer)))
(define (collatz x)
(cond
((equal? x 1) (list 1))
((even? x) (cons x (collatz (quotient x 2))))
((odd? x) (cons x (collatz (+ 1 (* 3 x)))))
(else (list))))
(argmax (λ ((x : Nonnegative-Integer)) (length (collatz x))) (range 1 1000000))