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

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 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].