Forest fire: Difference between revisions

m
→‎{{header|Perl 6}}: using constants
No edit summary
m (→‎{{header|Perl 6}}: using constants)
Line 2,961:
 
=={{header|Perl 6}}==
<lang perl6>myconstant $RED = "\e[1;31m";
myconstant $CLEAR = "\e[0m";
enum Cell-State <Empty Tree Burning>;
my @show = (' ', '木', $RED ~ '木' ~ $CLEAR);
class Forest {
1,935

edits