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/Literals-String/Prolog/literals-string-1.pro Normal file
View file

@ -0,0 +1 @@
'This is an "atom" and not a string.'

1
Task/Literals-String/Prolog/literals-string-2.pro Normal file
View file

@ -0,0 +1 @@
"This 'string' will fool you if you're in a standard Prolog environment."

2
Task/Literals-String/Prolog/literals-string-3.pro Normal file
View file

@ -0,0 +1,2 @@
?- [97, 98, 99] = "abc".
true.

2
Task/Literals-String/Prolog/literals-string-4.pro Normal file
View file

@ -0,0 +1,2 @@
?- 97 = 0'a.
true.

4
Task/Literals-String/Prolog/literals-string-5.pro Normal file
View file

@ -0,0 +1,4 @@
?- [97, 98, 99] = "abc".
false.
?- [97, 98, 99] = `abc`.
true.

13
Task/Literals-String/Prolog/literals-string-6.pro Normal file
View file

@ -0,0 +1,13 @@
test_qq_odbc :-
myodbc_connect_db(Conn),
odbc_query(Conn, {|odbc||
select
P.image,D.description,D.meta_keywords,C.image,G.description
from
product P, product_description D, category C, category_description G, product_to_category J
where
P.product_id=D.product_id and
P.product_id=J.product_id and C.category_id=J.category_id and
C.category_id=G.category_id
|}, Row),
writeln(Row).