http://www.perlmonks.org?node_id=133044


in reply to TMTOWTDI Puzzle: Generating a range of numbers

Are logical operators too obvious for this sort of challenge?
#!/usr/bin/perl use strict; my ($one,$two,$three,$four,$five,$six,$seven,$eight,$nine,$ten); $one="x" eq "x"; $two= $one << $one; $three= $one | $two; $four= $two << $one; $five= $four | $one; $six= $four | $two; $seven= $four | $two | $one; $eight= $four << $one; $nine= $eight | $one; $ten= $eight | $two; print "$one $two $three $four $five $six $seven $eight $nine $ten\n";

This sort of thing comes up in computer design. On the long path from transistors to programs, implementations are crushingly brute-force!

It should work perfectly the first time! - toma