PasteRack.org
Paste # 97283
2018-03-08 12:17:28

Fork as a new paste.

Paste viewed 89 times.


Embed:

Greatest Magnitude

  1. #lang racket
  2.  
  3. (define(abNum1 a)(if(< a 0)(list(* -1 a))(list a)))
  4. (define(abNum2 a)(if(< a 0)(list(* -1 a))(list a)))
  5. (abNum1 4)
  6. (abNum2 -5)
  7.  
  8.  
  9. (define (bigger-magnitude a b )(if (>= a b)(list a)(list b)))
  10.  
  11.  
  12. (bigger-magnitude abNum1 abNum2)

=>

'(4)

'(5)

>=: contract violation

  expected: real?

  given: #<procedure:abNum1>

  argument position: 1st

  other arguments...:

   #<procedure:abNum2>