some racket solutions to show the folder structure

This commit is contained in:
Lowl3v3l 2017-05-09 19:17:20 +02:00
parent 99ff80637c
commit 6d754b0312
2 changed files with 29 additions and 0 deletions

18
14/euler14.rkt Normal file
View file

@ -0,0 +1,18 @@
#lang racket
(define (longest-collatz n)
(let
((pivot (list 0 0)))
(define (collatz lst)
(if (equal? (car lst) 1)
lst
(if (even? (car lst))
(collatz (cons (quotient (car lst) 2) lst))
(collatz (cons (+ 1 (* 3 (car lst))) lst)))))
(for ((i (range 1 n)))
(if (>= (length (collatz (list i))) (second pivot))
(set! pivot (list i (length (collatz (list i)))))
0))
pivot))
(display (first (longest-collatz 1000000)))

11
25/euler25.rkt Normal file
View file

@ -0,0 +1,11 @@
#lang racket
(define (numdigits x)
(string-length (number->string x)))
(define (fibs limit lst)
(if (equal? (numdigits (car lst)) limit)
(length lst)
(fibs limit (cons (+ (car lst) (cadr lst)) lst))))
(fibs 1000 '(1 1))