100 doors: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 3,180: | Line 3,180: | ||
'''optimized''' |
'''optimized''' |
||
{{works with|Perl|5.x}} |
{{works with|Perl|5.x}} |
||
<lang perl>print "Door $_ is open\n" for map |
<lang perl>print "Door $_ is open\n" for map $_**2, 1 .. 10;</lang> |
||
<lang perl>print "Door $_ is ", qw"closed open"[int sqrt == sqrt], "\n" for 1..100;</lang> |
<lang perl>print "Door $_ is ", qw"closed open"[int sqrt == sqrt], "\n" for 1..100;</lang> |
||
<lang perl>while( ++$i <= 100 ) |
<lang perl>while( ++$i <= 100 ) |
||