ctoclean/square.icl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

implementation module square

import StdEnv

foreign export square
square :: !Int -> Int
square x = x * x

call_square :: !Int -> Int
call_square x = code {
    ccall square "GI:I"
};

Start = map call_square [1..10]