Commit c334e3d3 authored by Laszlo Domoszlai's avatar Laszlo Domoszlai
Browse files

add some test cases

parent 731a9029
[_Tuple3 [2] [2] [1]]
\ No newline at end of file
main = _Tuple3 (test B True) (test (A 1 2) False) (test (A 1 2) True)
:: A = A x y | B
test a b = case a (A x y -> case b (True -> 1)) (_ -> 2)
This diff is collapsed.
This diff is collapsed.
["123.46"]
\ No newline at end of file
main = R2S (jurrien.to2dec 123.456)
jurrien.to2dec::D !n_0::D = divR (I2R (R2I (multR n_0 100.0))) 100.0
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment