jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Do stuff in pervasives.

Browse source
This commit is contained in:
Léonard Gérard 2011-02-14 15:22:13 +01:00
parent 86f743318b
commit 979a6cfbd5
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/java/jeptagon/Pervasives.java
View file

@ -95,4 +95,14 @@ public class Pervasives {
c6 = v6;
}
}
public static int do_stuff(int coeff) {
int x = 13;
for (int i = 0; i < coeff; i++) {
for (int j = 0; j < 1000000; j++) {
x = (x + j) % (x + j/x) + 13;
}
}
return x;
}
}

2
lib/pervasives.epi
View file

@ -27,4 +27,4 @@ val fun (or)(bool;bool) returns (bool)
val fun (xor)(bool;bool) returns (bool)
val fun (~-)(int) returns (int)
val fun (~-.)(float) returns (float)
val fun do_stuff(int) returns (int)