blob: 6cd22d9a1c8ed908090ae21f00cfd177c225ff40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
:l T13825-ghci
let ghciPacked = Packed 1.0 2.0 3 4 5 6
map addOne (ghciPacked : packedAll)
let ghciAddOne (Packed a b c d e f) = Packed (a + 1.0) (b + 1.0) (c + 1) (d + 1) (e + 1.0) (f + 1)
map ghciAddOne (ghciPacked : packedAll)
:set -fobject-code
:l T13825-ghci
:set -fbyte-code
let ghciPacked = Packed 1.0 2.0 3 4 5 6
map addOne (ghciPacked : packedAll)
let ghciAddOne (Packed a b c d e f) = Packed (a + 1.0) (b + 1.0) (c + 1) (d + 1) (e + 1.0) (f + 1)
map ghciAddOne (ghciPacked : packedAll)
|
