99 Bottles of Beer/Prolog: Difference between revisions

{{collection|99 Bottles of Beer}}

[[99 Bottles of Beer]] done in Prolog-languages

 

__toc__

 

{{works with|SWI Prolog}}

bottles(X):-

writef('%t bottles of beer on the wall \n',[X]),

bottles(XN).

 

 

It is possible to extend the previous version so to handle singular and plurals of the word 'bottle':

 

bottles(B) :-

dif(B,0), NewB is B - 1,

bottles(NewB).

 

 

Another version that handles plural/not plural conditions.

 

line2(0):- write('no more bottles of beer').

line2(1):- write('1 bottle of beer').

bottles(XN).

 

implement main

open core, std, console

 

goal