Wordle comparison: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
(Added XPL0 example.) |
||
Line 423: | Line 423: | ||
ROBIN v SONIC => [0, 2, 1, 2, 0] => [grey, green, yellow, green, grey] |
ROBIN v SONIC => [0, 2, 1, 2, 0] => [grey, green, yellow, green, grey] |
||
ROBIN v ROBIN => [2, 2, 2, 2, 2] => [green, green, green, green, green] |
ROBIN v ROBIN => [2, 2, 2, 2, 2] => [green, green, green, green, green] |
||
</pre> |
|||
=={{header|XPL0}}== |
|||
<lang XPL0>string 0; |
|||
proc ShowColors(Result); |
|||
char Result; |
|||
int Color, I; |
|||
[Color:= ["gray ", "yellow ", "green "]; |
|||
for I:= 0 to 4 do |
|||
Text(0, Color(Result(I))); |
|||
CrLf(0); |
|||
]; |
|||
func Wordle(Answer, Guess); |
|||
char Answer, Guess, Result; |
|||
int I, J; |
|||
[Result:= " "; |
|||
for I:= 0 to 4 do |
|||
if Guess(I) = Answer(I) then |
|||
[Result(I):= 2; Answer(I):= 0] |
|||
else Result(I):= 0; |
|||
for I:= 0 to 4 do |
|||
for J:= 0 to 4 do |
|||
if Guess(I) = Answer(J) then |
|||
[Result(I):= 1; Answer(J):= 0]; |
|||
return Result; |
|||
]; |
|||
[ShowColors(Wordle("ALLOW", "LOLLY")); |
|||
ShowColors(Wordle("BULLY", "LOLLY")); |
|||
ShowColors(Wordle("ROBIN", "ALERT")); |
|||
ShowColors(Wordle("ROBIN", "SONIC")); |
|||
ShowColors(Wordle("ROBIN", "ROBIN")); |
|||
]</lang> |
|||
{{out}} |
|||
<pre> |
|||
yellow yellow green gray gray |
|||
gray gray green green green |
|||
gray gray gray yellow gray |
|||
gray green yellow green gray |
|||
green green green green green |
|||
</pre> |
</pre> |