プロジェクトオイラー問71 - sinapusu2002 @ ウィキ

http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%2071
Problem 71 「順序分数」 †

解法
ファレイ数列、手計算でもとける。

calc(U,D):-
	D+7>10^6,
	!,
	write(U).
calc(U,D):-
	U1 is U+3,
	D1 is D+7,
	calc(U1,D1).

main:-
	calc(2,5).