28 lines
359 B
Plaintext
28 lines
359 B
Plaintext
const n:int = 10
|
|
|
|
type metres = int
|
|
type tableau = int^n
|
|
type matrice = metres^n^n
|
|
|
|
fun f(a:metres) returns (o: metres)
|
|
let
|
|
o = a + 1;
|
|
tel
|
|
|
|
fun g(a:tableau) returns (o:tableau)
|
|
let
|
|
o = map<<n>> f (a);
|
|
tel
|
|
|
|
fun h(a:matrice) returns (o:matrice)
|
|
var x : matrice;
|
|
let
|
|
x = a;
|
|
o = map<<n>> g (x);
|
|
tel
|
|
|
|
node main() returns (o:matrice)
|
|
let
|
|
o = h(3^n^n)
|
|
tel
|