use Perl

TMTOWTDI in action

posted by ziggy on 2001.03.05 21:50   

CanSpice writes "The company I work for has just come up with voluntary lunchtime seminars to be put on by fellow employees. I figured that an hour on Perl and its informal slogan "There's more than one way to do it" would be a fine topic. So, I throw a challenge out to all the Perl programmers out there: how would you write a Perl program that would add one plus one?

I've seen this before, but have no idea where. I'm looking for fresh solutions as well, solutions that incorporate potential new features of Perl 6, along with the old diehards (bit mangling, regexps, blatant misuse of special variables, etc.)."

The classic 163-line Perl program to add 1 + 1 is mjd's Perl and the Lambda-Calculus.

Lunchtime seminars can be an interesting way to share ideas about Perl in the office. If you have a story, please tell us about it. :-)

• TIMTOWTDI in action and $A++ (Score:1)

  by Jean FORGET (1128)

  We Paris Perl Mongers have not tried to compute 1+1 , but we have tried to add 1 to the variable $A. See the results in http://paris.mongueurs.net/aplusplus.html [mongueurs.net]
• use the award-winning Inline module (Score:1)

  by unimatrix (1124)

  use Inline C => <<'EOC';
  
  int one_plus_one() {
    return 1 + 1;
  }
  
  EOC
  
  print one_plus_one();

  --
  We are Perl. Your table will be assimilated. Surrender your beer. Resistance is futile.
• pid nastiness (Score:1)

  by james (1129)

  While not particularly obfuscated on its own, encountering this in a large program may be particularly hairy. $$/$$+$$/$$
• Ideas for solutions (Score:1)

  by $Bob (668)

  Create a class One and overload the '+' operator for that class.
  
  Write the binary logic by hand using and (&), or (|), xor (^), shifts (<<, and >>), and simple loops.
  
  Go wacky with Roman numerals.
  
  Other wacky code snippets:
  "1+"+"+1"
  
  "1+1"+"1+1"
  
  $\=$/;"1+1"=~/(.)[+](.)/; print $++$+;
  
  print print."+".print."=".((print)+(print))."\n";
• Gotta love recursion (Score:1)

  by cees (1130)

  use POSIX qw(ceil);
  
  my $one_plus_one = sum(ceil(rand), cos());
  
  sub sum {
          @_ && (shift)- -sum(@_);
  }
  
  btw - this code will fail to produce a correct answer every once in a while :)
• store the data in the program (Score:1)

  by chromatic (983)

  my $val;

  sysseek(DATA, -10, 2);
  sysread(DATA, $val, 1);

  $val += $val;
  print "$val\n";
  1
  __END__

  Oh, for a CODE tag like on PerlMonks...
• Re:store the data in the program (Score:1)

  by pudge (1)

  CODE? You mean like this?

my $val;

sysseek(DATA, -10, 2);
sysread(DATA, $val, 1);

$val += $val;
print "$val\n";
1
__END__

• Re:store the data in the program (Score:1)

  by chromatic (983)

  If I were smarter, I would have either consulted the Everything source to verify that there's no special hackery, or the HTML & XHTML book.

  pudge, you're my hero once again.