Project Euler

Wiki »

Problem 5 » 履歴 » リビジョン 2

リビジョン 1 (Noppi, 2023/12/27 01:37) → リビジョン 2/3 (Noppi, 2023/12/27 04:46)

[ホーム](https://redmine.noppi.jp) - [[Wiki|Project Euler]] 
 # [[Problem 5]] 

 ```scheme 
 #!r6rs 
 #!chezscheme 

 (import (chezscheme)) 

 (define answer-5 
   (let ([n ((n (* 11 13 15 16 17 19)]) 19))) 
     (let loop ([i n]) ((i n)) 
       (if (and 
             (zero? (mod i 12)) 
             (zero? (mod i 14)) 
             (zero? (mod i 18)) 
             (zero? (mod i 20))) 
         i 
         (loop (+ i n)))))) 

 (printf "5: ~D~%" answer-5) 
 ```