PasteRack.org
Paste # 37453
2018-09-30 09:54:04

Forked from paste # 87206.

Fork as a new paste.

Paste viewed 961 times.


Embed:

  1. #lang scheme
  2.  
  3. (define (Div23 var) (=
  4.                      (or
  5.                       (modulo var 2)
  6.                       (modulo var 3)
  7.                       )
  8.                      0)
  9.   )
  10.  
  11. (Div23 2)
  12. (Div23 3)
  13. (Div23 6)
  14. (Div23 5)

=>

#t

#f

#t

#f