home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
hensa
/
programming
/
binprolog
/
binprolog_1
/
!BinPro330_progs_han
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1993-12-03
|
269 b
|
15 lines
/* Prolog version of hanoi benchmark */
go:-go(16).
time(T):-statistics(runtime,[T,_]).
go(N) :- time(T1),han(N,1,2,3),time(T2),T is T2-T1,write(T),nl.
han(N,_,_,_) :- N=<0,!.
han(N,A,B,C) :- N>0,
N1 is N - 1,
han(N1,A,C,B),
han(N1,C,B,A).