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