PasteRack.org
Paste # 91071
2018-09-30 10:13:39

Forked from paste # 22933.

Fork as a new paste.

Paste viewed 2252 times.


Embed:

  1. #lang scheme
  2.  
  3. (define (fred me) (cond ((< me 0) 0)
  4.                         ((and (>= me 0) (= (modulo me 5) 0)) 5)
  5.                     (else 23))
  6.   )
  7.  
  8. (fred -2)
  9. (fred 5)
  10. (fred 10)
  11. (fred 12)

=>

0

5

5

23