equal
deleted
inserted
replaced
8 |
8 |
9 test_code "(14 + 7 * -12 :: integer) = 140 div -2" in GHC |
9 test_code "(14 + 7 * -12 :: integer) = 140 div -2" in GHC |
10 |
10 |
11 value [GHC] "14 + 7 * -12 :: integer" |
11 value [GHC] "14 + 7 * -12 :: integer" |
12 |
12 |
13 test_code \<comment> \<open>Tests for the serialisation of @{const gcd} on @{typ integer}\<close> |
13 test_code \<comment> \<open>Tests for the serialisation of \<^const>\<open>gcd\<close> on \<^typ>\<open>integer\<close>\<close> |
14 "gcd 15 10 = (5 :: integer)" |
14 "gcd 15 10 = (5 :: integer)" |
15 "gcd 15 (- 10) = (5 :: integer)" |
15 "gcd 15 (- 10) = (5 :: integer)" |
16 "gcd (- 10) 15 = (5 :: integer)" |
16 "gcd (- 10) 15 = (5 :: integer)" |
17 "gcd (- 10) (- 15) = (5 :: integer)" |
17 "gcd (- 10) (- 15) = (5 :: integer)" |
18 "gcd 0 (- 10) = (10 :: integer)" |
18 "gcd 0 (- 10) = (10 :: integer)" |