2013-07-14から1日間の記事一覧
暇だったので、朝からカキカキ。逆数を10進数で表現する。 (define (reciprocal m) (let loop ((a '()) (b '()) (n 1)) (if (find (^x (= (mod n m) x)) b) (reverse (cons (div n m) a)) (loop (cons (div n m) a) (cons (mod n m) b) (* (mod n m) 10)))))…
暇だったので、朝からカキカキ。逆数を10進数で表現する。 (define (reciprocal m) (let loop ((a '()) (b '()) (n 1)) (if (find (^x (= (mod n m) x)) b) (reverse (cons (div n m) a)) (loop (cons (div n m) a) (cons (mod n m) b) (* (mod n m) 10)))))…