Project Euler

Wiki »

Problem 1 » 履歴 » リビジョン 3

リビジョン 2 (Noppi, 2023/12/27 04:43) → リビジョン 3/4 (Noppi, 2023/12/27 11:53)

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

 ## Multiples of $3$ or $5$ 
 If we list all the natural numbers below $10$ that are multiples of $3$ or $5$, we get $3, 5, 6$ and $9$. The sum of these multiples is $23$. 
 Find the sum of all the multiples of $3$ or $5$ below $1000$. 

 ## 3と5の倍数 
 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 
 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. 

 ```scheme 
 #!r6rs 
 #!chezscheme 

 (import (chezscheme)) 

 (define answer-1 
   (fold-left (let loop ([n 3] [sum 0]) 
     (lambda (sum current) (cond 
       (if (or 
             [(<= 1000 n) sum] 
       [(or 
          (zero? (mod current n 3)) 
             
          (zero? (mod current n 5))) 
         
        (loop (add1 n) (+ sum current) 
         sum)) 
     0 
     (iota 1000))) n))] 
       [else (loop (add1 n) sum)]))) 

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