Skip to main content
1 of 2
nutki
  • 3.7k
  • 11
  • 12

Perl, 28

Reads the parameter from stdin.

@x=1..$_,print"@x
"for 1..<>

From the command line:

perl -E'say join$",1..$_ for 1..<>'

but I don't now how to count that (probably between 26 and 30).

nutki
  • 3.7k
  • 11
  • 12