PasteRack.org
Paste # 46043
2023-05-06 22:48:06

Fork as a new paste.

Paste viewed 1338 times.


Embed:

  1. #lang racket
  2.  
  3. (provide solution)
  4.  
  5. (define (prog_sum n)
  6.     (quotient (* n (+ n 1)) 2))
  7.  
  8. (define (amount_of_divisions_in_range number n)
  9.     (-
  10.         (quotient number n)
  11.         (if
  12.             (equal? (remainder number n) 0)
  13.             1
  14.             0
  15.         )
  16.     )
  17. )
  18.  
  19. (define (solution n)
  20.     (-
  21.         (+
  22.             (*
  23.                 3
  24.                 (prog_sum (amount_of_divisions_in_range n 3))
  25.             )
  26.             (*
  27.                 5
  28.                 (prog_sum (amount_of_divisions_in_range n 5))
  29.             )
  30.         )
  31.         (*
  32.             15
  33.             (prog_sum (amount_of_divisions_in_range n 5))
  34.         )
  35.     )
  36. )

=>