gistfile1.scm

(use gauche.sequence)
(use gauche.lazy)
(use math.prime)
(use srfi-1)

(define-constant *bound* (- (expt 2 31) 1))

(define (solve)
  (let* ([reverse-primes (reverse! (take-while (^p (<= p *bound*)) *primes*))]
         [total (length reverse-primes)])
    (find (^p (bpsw-prime? (cdr p)))
          (lmap cons reverse-primes (liota total (- total 1) -1)))))

#|
実行例
gosh> (time (solve))
;(time (solve))
; real 124.610
; user 132.010
; sys    2.170
(2147483579 . 105097561)
|#