shirok · March 31, 2013 10:13
diff --git a/gistfile1.txt b/gistfile1.txt
 (use gauche.sequence)
 (use math.prime)

 (define (goedel n)
  ($ fold (^[p k s] (* s (expt p k))) 1 *primes*
     $ map digit->integer $ number->string n))

 (define meertens
  (let1 n 0
    (rec (f) (inc! n) (if (= n (goedel n)) n (f)))))
	(use gauche.sequence)
	(use math.prime)

	(define (goedel n)
	($ fold (^[p k s] (* s (expt p k))) 1 primes
	$ map digit->integer $ number->string n))

	(define meertens
	(let1 n 0
	(rec (f) (inc! n) (if (= n (goedel n)) n (f)))))