Anonymous user
Input/Output for lines of text: Difference between revisions
→{{header|Perl 6}}: try to follow the (assumed) intention of the task description
(add 'clarify task' template) |
(→{{header|Perl 6}}: try to follow the (assumed) intention of the task description) |
||
Line 269:
=={{header|Perl 6}}==
<lang perl6>$*OUT.say($*IN.get) xx $*IN.get;</lang>▼
Short version:
Verbose version:
<lang perl6>sub do-stuff ($line) {
say $line;
}
my $n = +get;
for ^$n {
my $line = get;
do-stuff $line;
}</lang>
=={{header|PowerShell}}==
| |||