31ff28d3ee
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1936 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
18 lines
474 B
Java
18 lines
474 B
Java
package jpl.test;
|
|
|
|
import jpl.Query;
|
|
import jpl.Term;
|
|
|
|
public class FetchLongList {
|
|
public static void main(String[] args) {
|
|
// Prolog.set_default_init_args(new String[] { "libpl.dll", "-f", "D:/pcm/bin/pcm.ini", "-g", "pcm_2000" });
|
|
Term t = (Term)((new Query("findall(foo(N,bar),between(1,2308,N),L)")).oneSolution().get("L"));
|
|
int i = 0;
|
|
while ( t.hasFunctor(".", 2)){
|
|
t = t.arg(2);
|
|
i = i+1;
|
|
}
|
|
System.err.println("got a list of " + i+" members");
|
|
}
|
|
}
|