{"id":1016,"date":"2010-08-04T18:02:23","date_gmt":"2010-08-04T18:02:23","guid":{"rendered":"http:\/\/kedar.nitty-witty.com\/?p=1016"},"modified":"2014-06-24T17:53:33","modified_gmt":"2014-06-24T17:53:33","slug":"my-worst-mathematical-program","status":"publish","type":"post","link":"https:\/\/kedar.nitty-witty.com\/blog\/my-worst-mathematical-program","title":{"rendered":"My worst mathematical program in perl"},"content":{"rendered":"

I have a Mathe-crap-matical friend. Who keeps digging into graves of dead formulas and equations and all possible Math related stuffs.
\nSince I started understanding Mathematics (that it’s not my cup of tea), I tried to stay away from it.<\/p>\n

Now, that enthu creature mailed me his requirement. He says he “eat mathematics”, I prefer to stay away from such guys. But as a good friend I read his mails.<\/p>\n

His requirement was to create a program. His requirements are:<\/p>\n

N is a natural number falling in range [1 – 999999]
\nX is a number given by user with range [6000 – 20000]<\/em><\/p>\n

You have to write a program such that you find a number N whose square root or cube root is such that the first digit of X comes in the Xth decimal place and second digit of X comes in the (X+1)th decimal place and so on…<\/em><\/p>\n

e.g. user enters 12…
\nthen the number N would be such that CubeRoot(N) or SqRoot(N) = dddd.ddddddddddd12<\/em><\/p>\n

You may write program in any language.<\/em><\/p>\n

Check screen shot to understand what it does [note the name]:<\/p>\n

\"maths<\/a>
maths program<\/figcaption><\/figure>\n

Alright, I understood the dooms day is closing in… Did you notice the decimal places correction he was asking? 6000!! Damn…<\/p>\n

Any ways, I chose perl and accomplished the task. I’m not sure how and why he need this thing but still I hope it rested his soul. \ud83d\ude42<\/p>\n

This post is for people like me who have such math-e-manic friends.
\nYou may download my script my_mathematics_pgm.pl<\/a>.<\/p>\n

print \"Enter X:\";\r\nmy $X = <STDIN>;\r\n$X=trim($X);\r\nmy $N=1;\r\nwhile ($N < 100) {\r\n\t$SQRT_VAL=$N**(1\/2);\r\n\t$CUBERT_VAL=$N**(1\/3);\r\n\r\n\t$PosAfterDesimal=index ($SQRT_VAL,'.');\r\n\t$PosOfXInSQRT =index ($SQRT_VAL, $X,$PosAfterDesimal);\r\n\t$PosOfXInSQRT = $PosOfXInSQRT -1;\r\n\t$PosAfterDesimal=index ($CUBERT_VAL,'.');\r\n\t$PosOfXInCUBERT =index ($CUBERT_VAL, $X, $PosAfterDesimal);\r\n\t$PosOfXInCUBERT= $PosOfXInCUBERT -1;\r\n\r\n#\tprint $N . \"->\" . $SQRT_VAL . \"->\" . $X . \"->> \" .trim($PosOfXInSQRT). \"\\n\";\r\n\tif (trim($PosOfXInSQRT) == $X) {\r\n\t\tprint $X. \" matched SQRT of \" . $N . \" at \" . $X . \"th Position \\n\" ;\r\n\t\tprint \"\\t Where, N=\" . $N . \", SQRT VAL=\" . $SQRT_VAL . \", X=\" . $X . \"\\n\";\r\n\t\texit;\r\n\t} elsif (trim($PosOfXInCUBERT) == $X) {\r\n\t\tprint $X. \" matched Cube Root of \" . $N . \" at \" . $X . \"th Position \\n\";\r\n\t\tprint \"\\t Where, N=\" . $N . \", CUBEROOT VAL=\" . $CUBERT_VAL . \", X=\" . $X . \"\\n\";\r\n\t\texit;\r\n\t}\r\n\t$N++;\r\n}\r\nsub trim($)\r\n{\r\n        my $string = shift;\r\n\r\n        if ( $string eq undef || $string eq \"\" )\r\n        {\r\n                return \"\";\r\n        }\r\n        $string =~ s\/^\\s+\/\/;\r\n        $string =~ s\/\\s+$\/\/;\r\n\r\n        return $string;\r\n}#trim Ends<\/pre>\n","protected":false},"excerpt":{"rendered":"I have a Mathe-crap-matical friend. Who keeps digging into graves of dead formulas and equations and all possible Math related stuffs. Since I started understanding Mathematics (that it’s not my…\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[6],"tags":[24,424,67,227,228,92],"class_list":["post-1016","post","type-post","status-publish","format-standard","category-technical","tag-code","tag-general","tag-mathematics","tag-perl-program","tag-perl-sample-code","tag-program"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t