aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Conditional-structures/Prolog/conditional-structures-1.pro Normal file
View file

@ -0,0 +1 @@
go :- write('Hello, World!'), nl.

6
Task/Conditional-structures/Prolog/conditional-structures-2.pro Normal file
View file

@ -0,0 +1,6 @@
fact(foo).
fact(bar).
fact(baz).
go :- fact(booger).
go :- fact(bar).

8
Task/Conditional-structures/Prolog/conditional-structures-3.pro Normal file
View file

@ -0,0 +1,8 @@
fact(X) :-
( X = foo
; X = bar
; X = baz ).
go :-
( fact(booger)
; fact(bar) ).

7
Task/Conditional-structures/Prolog/conditional-structures-4.pro Normal file
View file

@ -0,0 +1,7 @@
fact(X) :-
( X = bar -> write('You got me!'), nl
; write(X), write(' is not right!'), nl, fail ).
go :-
( fact(booger)
; fact(bar) ).