8 lines
No EOL
135 B
Text
8 lines
No EOL
135 B
Text
posMul: _Int - > _Int - > _Int;
|
|
posMul a b = a + b; {
|
|
-
|
|
case b of {
|
|
0 => 0;
|
|
_ => a + posMul a(b - 1)
|
|
}; -
|
|
} |