Grade
7
# This is a perl program. It can be run at the command line, or in an IDE.
# If you aren’t using a Mac or Linux computer, or just don’t want to bother
# with the command line, you can copy-paste this into tio.run/#/perl5. Then,
# click the play button. Look in output.
# I'm not sure whether stuff like this is even allowed, but I'll
# do it anyway.
use warnings;
my $e = qr/s/; my $i = qr/i/; my $k = qr/n/; my $b = qr/b/; my $f = qr/c/; my $j = qr/o/; my $a = qr/o/; my $h = qr/t/; my $c = qr/f/; my $g = qr/a/; my $d = qr/u/; my $food = 0; my $water = ""; my $death = 0; while($food < 11){ $death = rand(25) + 97; if($death =~ ${chr($food + 97)}){ print chr($death); $food++; } } print "\n";
Contest