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

2
Task/Associative-array-Iteration/Prolog/associative-array-iteration-1.pro Normal file
View file

@ -0,0 +1,2 @@
assert( mymap(key1,value1) ).
assert( mymap(key2,value1) ).

4
Task/Associative-array-Iteration/Prolog/associative-array-iteration-2.pro Normal file
View file

@ -0,0 +1,4 @@
?- forall( mymap(Key,Value), writeln( [Key,Value]) ).
[key1,value1]
[key2,value1]

6
Task/Associative-array-Iteration/Prolog/associative-array-iteration-3.pro Normal file
View file

@ -0,0 +1,6 @@
?- mymap(key1, Y).
Y = value1.
?- mymap(X, value1).
X = key1 ;
X = key2.

2
Task/Associative-array-Iteration/Prolog/associative-array-iteration-4.pro Normal file
View file

@ -0,0 +1,2 @@
?- findall( X, mymap(X,value1), Xs).
Xs = [key1, key2].

2
Task/Associative-array-Iteration/Prolog/associative-array-iteration-5.pro Normal file
View file

@ -0,0 +1,2 @@
?- findall( Y, mymap(key1,Y), Ys).
Ys = [value1].