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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 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) ).