application/octet-stream
•
546 B
•
22 lines
#!/usr/bin/env nujel
; Multiples of 3 or 5
; https://projecteuler.net/problem=1
;
; Find the sum of all the multiples of 3 or 5 below 1000.
[defn multiple-of-3? [α]
[zero? [rem α 3]]]
[defn multiple-of-5? [α]
[zero? [rem α 5]]]
[defn multiple-of-3-or-5? [α]
[or [multiple-of-3? α]
[multiple-of-5? α]]]
[def result [-> [range 1000]
[filter multiple-of-3-or-5?]
[sum]]]
[when [not= result 233168]
[throw [list :wrong-result "Wrong result" result]]]
[return :success]
