#!/usr/bin/perl for my $x (0..4) { $y = sprintf('%.0f', -( 2+( 7/12)) * ($x**4) + +(13+( 8/12)) * ($x**3) + -(26+(11/12)) * ($x**2) + +(36+(10/12)) * ($x**1) + +(80+( 0/12)) * ($x**0) ); print chr($y); }
-BronzeWing
The Secret to Fortune Cookies in One Line
print join("... in bed", `fortune fortunes` =~ m/^(.*)(\.|\?|\!)$/), "\n";
In reply to Fun With Math by BronzeWing
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |