“Perl (Perl 2018.12) Probe” Code-Antworten

Perl (Perl 2018.12) Probe

#!/usr/bin/perl6
 
while (($_ = $*IN.get) != 42) { say $_ }