Set puzzle: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
m (→{{header|Tailspin}}: Add required typing) |
||
Line 4,348: | Line 4,348: | ||
def nCards: $(1); |
def nCards: $(1); |
||
def nSets: $(2); |
def nSets: $(2); |
||
{} -> # |
{sets: []} -> # |
||
when <{sets: <[]($nSets..)>}> do $ ! |
when <{sets: <[]($nSets..)>}> do $ ! |
||
otherwise |
otherwise |
||
Line 4,356: | Line 4,356: | ||
templates formatCard |
templates formatCard |
||
def colours: ['red', 'green', 'purple']; |
def colours: colour´1:['red', 'green', 'purple']; |
||
def symbols: ['oval', 'squiggle', 'diamond']; |
def symbols: symbol´1:['oval', 'squiggle', 'diamond']; |
||
def numbers: ['one', 'two', 'three']; |
def numbers: number´1:['one', 'two', 'three']; |
||
def shadings: ['solid', 'open', 'striped']; |
def shadings: shading´1:['solid', 'open', 'striped']; |
||
$ -> '$colours($.colour);-$symbols($.symbol);-$numbers($.number);-$shadings($.shading);' ! |
$ -> '$colours($.colour);-$symbols($.symbol);-$numbers($.number);-$shadings($.shading);' ! |
||
end formatCard |
end formatCard |
||
Line 4,372: | Line 4,372: | ||
end formatSets |
end formatSets |
||
[9,4] -> setPuzzle -> formatSets -> !OUT::write |
[9,4] -> setPuzzle -> formatSets -> !OUT::write</syntaxhighlight> |
||
</syntaxhighlight> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |