boot2

Playing with the boostrap
git clone https://git.ryansepassi.com/git/boot2.git
Log | Files | Refs | README

072-min-max-abs.scm (518B)

      1 ; min, max (2-arg), abs.
      2 
      3 (if (= 3 (min 3 7)) 0 (sys-exit 1))
      4 (if (= 3 (min 7 3)) 0 (sys-exit 2))
      5 (if (= -5 (min -5 -2)) 0 (sys-exit 3))
      6 (if (= -5 (min 0 -5)) 0 (sys-exit 4))
      7 (if (= 4 (min 4 4)) 0 (sys-exit 5))
      8 
      9 (if (= 7 (max 3 7)) 0 (sys-exit 6))
     10 (if (= 7 (max 7 3)) 0 (sys-exit 7))
     11 (if (= -2 (max -5 -2)) 0 (sys-exit 8))
     12 (if (= 0 (max 0 -5)) 0 (sys-exit 9))
     13 (if (= 4 (max 4 4)) 0 (sys-exit 10))
     14 
     15 (if (= 5 (abs 5)) 0 (sys-exit 11))
     16 (if (= 5 (abs -5)) 0 (sys-exit 12))
     17 (if (= 0 (abs 0)) 0 (sys-exit 13))
     18 
     19 (sys-exit 0)