New JIt system, developed by George Oliveira and Anderson Faustino.

JIT/examples/append.pl

@@ -0,0 +1,27 @@
+:- initialization(main).
+
+:- use_module(library(random)).
+
+generate(L, N) :-
+    generate(L, [], N).
+
+generate(L, L, 0) :- !.
+generate(L, X, N) :-
+    A is N - 1,
+    random(0, 1000000, B),
+    generate(L, [B|X], A).
+
+append_([],L,L).
+append_([X|L1],L2,[X|L3]) :-
+    append_(L1,L2,L3).
+
+main :-
+    unix( argv([H|_]) ), number_atom(N,H),
+
+    generate(List, N),
+
+    append_(List, [], _),
+
+    statistics,
+    statistics_jit,
+    halt.