Re: Divisors for a number

Replies are listed 'Best First'.

Re^2: Divisors for a number
by hdb (Monsignor) on Mar 03, 2015 at 15:08 UTC

How about some golf?

($%%$_)||print$_.$/for 1..($%=shift)
[download]

by Athanasius (Archbishop) on Mar 03, 2015 at 15:52 UTC

Nice! I particularly like the $%%$_ construct. But why so verbose?

 1:49 >perl -wE"$%%$_||say for 1..($%=pop)" 36
1
2
3
4
6
9
12
18
36

 1:49 >
[download]

Ten ~~characters~~ strokes saved. :-)

by LanX (Saint) on Mar 03, 2015 at 15:54 UTC

> How about some golf?

more obfuscation than golf. :)

Beside the cryptic variable-name, is the first paren not needed and you can use say to shorten print.

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)}