Re: TMTOWTDI Puzzle: Generating a range of numbers

by toma (Vicar)
 on Dec 19, 2001 at 11:36 UTC ( #133044=note: print w/replies, xml ) Need Help??

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

Create A New User
Node Status?
node history
Node Type: note [id://133044]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (10)
As of 2018-06-22 14:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should cpanminus be part of the standard Perl release?

Results (124 votes). Check out past polls.

Notices?