PasteRack.org
Paste # 19068
2018-09-30 10:14:35

Forked from paste # 91071.

Fork as a new paste.

Paste viewed 2469 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 5)
  11. (fred 10)
  12. (fred 12)
  13. (fred 53)

=>

0

0

5

5

23

23