Skip to main content

Browse the archive

swh:1:snp:aeaf3dbb58f5be84b565e73b5ade1503ee8cb6d6
Raw File
Tip revision: b6407e0f026cf5491ca5ed0a35ea5cf316ebe8ca authored by Anish Tondwalkar on 21 May 2021, 03:15:25 UTC
formatted for submission
Tip revision: b6407e0
abz.hs 
top :: {v: Int | v == 5}
top =
    let
abz = \ n ->
           if n < 0
         then 0 - n
         else n
in
  let t0 = abz 0 in
    let t1 = abz 5 in
      abz (t0 - t1)
back to top