Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

GIMME FIVE!!!

by throttle (Beadle)
on Nov 01, 2004 at 13:37 UTC ( #404297=obfuscated: print w/replies, xml ) Need Help??

Well, this isn't really obfuscated code, but it's a nice way to print a number :) The shape really sucks, but i think this script as a kind of 'reduction machine'. You give it a BIG five, and it will print a little one :) I spent a lot of time on it, so, please, don't tell me it sucks ;) PLEAAAAAAASE!
#!/usr/bin/perl #GIVEme5 --- may be slow :)####reduction############## my$five=int(15-5-3-2*12/(4*3)-15+10+5/1*(3-2)+24-20-3-1+0/1/1+7-3-4+15 +7-8+4-2-2*1+12-42+66-45/32-412-432+2342+32-234+234+545-1231+154353-12 +87-43+12-43+12+43+87-90+13+1-1234567890-9876543210+15+3124-78+13579-1 +35353-3464643-7357567-258598-5325236+75374878*36735+457235-4736573+35 +125135+6456346-63-64+5675+7-5+1 +1241+435235+5-256546-5464+16343 +23535+35235-23523+52452-35223-7 +33564-143+535-145+46360+562+234 +29+06+1887-int("9049382718")+99 +53453-89+76-43535+134535-3453-1 +141+24345-52452+3452345+2345-22 +3653+6345-5265-624-65+36-345+12 +1-654+45-34+345-21+34-24+346-42 +1+2+3+4+5+6+7+8+9+0-0-9-8-7-6-5 +4-3-23-2-1*9+124-325+463-123+12 +123-123+43-36+453+4-32+2-41+5+1 +94-21+78-15+47-98+4-90+7-1+1-11 +1-1+1-1+1-1+1-1+1-1+1-1+1-1+1-1 +2-34+34+1-56+1-1+1-1+45-65+12-8 +8-123+321-56+3-234+654+121-12+51 +1-33354-32-7+908-13534-5+785+2-1+1 +32-12+54-64+123+32-4123+12+456-3+12+54-9 +22-7+20+3-32-99+88+17-2+12-54+76-123+10-456 +9-12+13-3+7-21+20+10+22-7+17+4-16+40-14+5-5 +31-9+23-32+8+15-99+100-120+30-1000+123-43+8 +42-785+567+2-456-84+57-25+57-568+4567-1209 +567-234+123-456+675-567+5673-26+573-743+89 +678-564+345-15+5674-58+435-645+689-456+12 +876-679+678-235+564-41+5675-874+5467-999 +4-645+674-2456+567-876+678-346+5684-1+0 +532+345-13423452+543-235+436+345-134+8 +0-453+36-13+57+346-234+67+016-00000001 +12**0-25+345+74-4567-265+58-54+3567-120 +1234567-832325432+65-346-254+346-474+8 +90-245+453-364+36-3+636-66+436-636+341 +67543+234356-46+54-64+62+63+435-345+21 +123-1-2314-2-424-12-42-41412-1345+344 +234-1-2314+3245+2345+34-1+51+41-45+236 +3245+345-123+563-2424-155+234+234+1230 +1-2+3-4+5-6+7-8+9-0+123-456+789+123-43 +4322-5435+654-34+21-54-1+123-453+1-11 +345+234-123+345+341-62+86+89-32+64-83 +123-765+5460+34+90+546-32+173+45-4570 +1-01+123+143-76+75-173+56-26+78-3461 +346-6-3+6-3+6-3+6-3+6-3+60+361+556-46+46-1 +124+25-3+6-6+646-46+2+45-54+7-3+5-35+1 +626-0+0-1+51+1+6-+768-346-41-436-3461 +563-4575+5673-564+5767-567+57-123+9 +768-567+5-75+7-4+12)*0+5;print$five ;print"\n";;;;;;;;;;;;;;;########### #THIS_SHAPE_SUCKS_A_LOT!GIMME_FIVE!#

Replies are listed 'Best First'.
Re: GIMME FIVE!!!
by cchampion (Curate) on Nov 01, 2004 at 16:55 UTC
    don't tell me it sucks

    Why not? Don't you want to improve?

    Please, allow me. Here goes.

    Your script is not obfuscated at all. Looking at the code, there is no doubt that it is going to print a number. Therefore it is not clever, nor subtle or disguised. It is just plain and dull.

    That said, here is some advice for you to read before you rush to publish your next posts.

    HTH

      you're right. it sucks. i'm very sorry for my pride.
        I thought it was cool. :)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://404297]
Approved by atcroft
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (2)
As of 2021-10-28 00:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (95 votes). Check out past polls.

    Notices?