Set puzzle: Difference between revisions

(Added Easylang)
Line 1,504:
.
.
proc prcardsprintcards cards[] . .
for card in cards[]
card2attr card attr[]
Line 1,514:
print ""
.
proc setsgetsets . cards[] set[] .
set[] = [ ]
for i to len cards[]
Line 1,549:
len pack[] -1
.
setsgetsets cards[] set[]
until len set[] = 3 * nsets
.
print "Cards:"
prcardsprintcards cards[]
print "Sets:"
for i = 1 step 3 to 3 * nsets - 2
prcardsprintcards [ set[i] set[i + 1] set[i + 2] ]
.
.
1,978

edits