Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

the secret of PI

by Sinister (Friar)
on May 04, 2001 at 13:39 UTC ( [id://77910]=perlmeditation: print w/replies, xml ) Need Help??

As I was so excited about Erudill's last obfuscation I tried to do my own thing with PI. To my amazement (?) I discovered something very odd! Maybe it is a plot! run this code and you'll get a word.
$pi = "3.14159"; foreach (split(//,$pi)) { $foo .= chr(int("10" .$_)) unless /\./; } print $foo,"\n";
That word (geheim) is plain old dutch for:

SECRET.

Could it be that PI holds a secret? Is it perhaps a code, to uncipher the doors to the true meaning of live? Or maybe it is a code key to alien code(x)...

Puzzling don't you think fellow monks!

Sinister greetings.

Replies are listed 'Best First'.
Re: the secret of PI
by arhuman (Vicar) on May 04, 2001 at 14:04 UTC
    Using my my infinite precision PI calculator and your piece of code I produced this :

    Notice how PI is the number of the geeks and kids...
    (Tell me if you SEE other things or if you find something in the followings digits...)


    geheimfjigilmkmgfglhjfjhgglgfkmidfllhemkej
    mgmmgkiedilfdmkhmhhimfgdklejhdjfljfdlmmljfldghlfi
    ghfeekdjkmlfehldljiegflfgdjjhkdmglhhjdmiidilffgek
    figimhdleflhleeekhidflhedfkdemglifeediiimjhhjffmh
    lmihmgdglemjhhflledmkijjimgghhjeflhkijhlfggkljklg
    ejifkefdemdmehijhlijjmfghjdghljedhihgfjjhlfeggmgj
    dkfjdfhmehefkgkfhilkddjjdjgeiillekhlleifdmfdmjflf
    mfihdmekeigjhgjklmfimdgjddeeggdigdihllfdhjjifeglh
    ehjmiemheieejdmhggdikfkdgjikimimemigdmfeljeekglem
    gfjeekmgedieelihldkhhjfgkmmjfkhmijkgiellikifkfhlm
    effkmglelgdeemhmefmlggjkggjfhhdjijjhgdljdfegmhmhj
    gmiffhkgkemdkdfekmljdmhgkdfkkdigmfekekjfmgekjkifg
    lhjkhlelhjkjjmhdiegfdddijlefkehifjgijdlfkklikkegh
    fkikklmjdmekgjgkeklkfehjlhhdmdeffhmighgdehjihmili
    gkedidkmffkmjlmfilmfgihfdemmijeefefmdfemjdljhdghh
    eleimlegjfmkkhkkegdmmjdielkdkfeeghmmmmmmlgkfmkldh
    mmiedimkgekgflejdmjgelimidfhhimhiighjmdlgdfjhfiff
    gdlfigghhjlidgifjemgeellekededddgegklglkiflljilki
    ggfdlglehfdjekekkjjmehkgdgimlfighmdhflkiihjlkgeei
    mijfljgllfgigklkimgkiemikklelikkldigfekeffjldjjeg
    ddemfklkjjeeemimdmfejhfdemlmgldmifikfdedjihliljgf
    klljimgjeigglelfkmjlfgdgdemifdgigdelifmjlmmikkgjf
    fimmheglmefhmkfekkiflghkmegeieiikhlikfhfhiheidjmi
    midlfmiggeejljekfkliillmdkidmlglekihjgkhjhmgmgemf
    iidjdhddmfkkdejkeegmddmlhllfhdeflilgjejdgijgkdkjj
    dedhkedelemhfmiiimjemlmhjkjklgkhhmhhlfiigkmkkhkfj
    lhkedhdhkighjhjfdldhjjlhfimdjmhmefmggegjkkdflmlme
    ifedhkifejfdijmjjdfhdildgleidemgieefigglfhgddgiil
    kjhdfhkhmjhkgfjgmehemmfkfjdhfjmmffkmjklfgihklejgj
    ddmghekfejhefemmfhiljgeidgdfljelfmkhiiikdjkhmlgli
    dihmhilliljmfjmmijmdmfkfedkmkidmgdfmiigfeejighhml
    kfdfkiimjdfgjhldjjihmmeemllelghkmkkigijjgjmldkhfj
    ihfifkljfiielelhekikhjkflmdmkkkkfkmgldddlejhkdjdd
    ejehifhmemfekgfekfehkkfgidehehhemkgijlihlejegjeei
    kgifiifegghkikhelhmhjlhglifggfgmdkgmhehggghihkkjf
    hejljfielmlgijmhliijfdmmfemfffelhfkfiidfihfijllkj
    kekmdhmhjdejighjjldhmlljfkfgfkmekljdliklhglglfkmj
    kmhjhhkkdhllegeiigkhkgdegifhmhheekkfkgmhggefmeihi
    fehddmlgeekfgfdgidghifkmlhllgiimdghgljgiij
    ddikefdkmlfddlelfelhfdfdiihdmimgdmjdljfdlkieihdhf
    dgjjmmijmgdgdmekklijmjikkfielmdffkgmmfdhmidi
    egdgeghgjdi

    UPDATE : As soon as I'll got time I'll try to code something to produce a wider set of char with the PI digits...
    We may get even more interesting results...

    UPDATE : I've put in bold the english words given by jlp

    "Only Bad Coders Badly Code In Perl" (OBC2IP)
      If you want to produce strings from numbers, I suggest my Math::Fleximal. Converting your number above to base 26 I get:
      nuthtyhtdpfinhyipsbruqexifcqhatvnvfllozvphwvlwkzxxuxkagd kcrengspkehnshjswoqcsdydebhlbghtoqafhokqdrotmpocphfgapwe cczcygnghilplmfwzjznumybripnuvwxpagbmsoqcnnriefashyptlrx qfvpecmipsyhbxfljkzdidhufjqsojagahyapmdjatgkqgeckodwmbon vhiqadxvebworuudzozsjylfomchobtzvabyqywpfnqipcxvhkmxamgh dnkisvqdobkpzdfsnlenltqowomyrlhkopznhnevjiofdmacfxsaksps ipbmmatuajuowctcazksqinescosmyzxiuoeiqrzjqlpfmhtrhxdnift barmdhnbaoalntlmmwjsmbbrgrgsxmdpbhaoufzeybplyxtcfhmwpjzw naizhhlxeifszkghtkrmxxrnlajicomjqcpdmbstvlwupcnktniudxfu vfunpgzbyehqqxshxhvvyupcfcoriuwfmpnmsxszrzcpmxplbbbxtsfs pojbxwuzbfpsuryipvdbzpmftphgocieonbquqvaeolvmylnclyvqdwq ltduvpefwyyqxszxwzfhytwxxxrueadyzicbkqgylvcdflfcczfmhutc oxxsjrjuaxlymoxymbnchxggdcdvvjitsixrlbgyvxnfinmsbqanqzai voycbrdcchgjrutrjkxhvejcnpndabcymnjbkmvhatgpcxyjmzjhkzuq hbqefnxzpwkasejgfpolraoomracqcxjdgoxrkuoelaurwddjfwmcplp vbuljaeqanykvdwqdzjtgylngbijslkcfwyvivzjptqxezsnvlubmsoa olewkuutumtjnwgnwckwclfmvlgyuiaovsewgpkbekiycwkqpucgfskt srucfnvzcibnktrmlzxrbndzmgswjyonefknoyeozkkxhlcwfzrzwahb cehvothdpypfswolmfmhciidirmfyowrbhonlgyjhbhwssthtapcetme afyvghadstgjdvsdfbibwfqqhroohwmlnzlfsgboszdmjqztdddngglo bzkqpxeghfehewdujftoanolymtbizwpodntfzqbvdlkwifwknewcguf joudwcrccsholumyfyuatiqgoctnsdmisrsoyausrjeiybrmnzpqyrfw awaknonguxbtrnfrkdmsghxialplxodcucacrsjfazraegjkljnicpvc uqdouphyyrurpluhgsbwugcnijymtvvbwtnhbvbxaeudqbyuiwarxcln pollepbtchkiatczhtigbakxigykqiqciuglvjcpknrbkhyhrlgtlhwz kgifinjygwtwhp
      Of course you will not hit many words there. But if you pass the input in as data for various "random text" algorithms you might even get out something interesting.
        Using your excellent Math::Fleximal and a conversion of the 5000 first digits '0'..'9'->'a'..'z'
        I got several words (by matching them with my /usr/dict/words file)
        If I keep only the words with more than 3 char, I got :

        'buys'
        'coin'
        'dull'
        'fats'
        'feet'
        'pots'
        'test'
        'tint'
        'warn'
        'warp'
        'went'

        And last but not the least 'monk' !


        "Only Bad Coders Badly Code In Perl" (OBC2IP)
      Let's see, in this set I see 'kde', 'midi', 'die', 'leg', 'fed', 'feed', 'egg', 'heh', and 'deem'. Make of it what you will :)
      Update: Upon another look, I also see 'keg', 'lid', 'fee', 'gig', 'gif', 'dig', 'film', 'hill', 'hid', 'DJ', 'led', 'hem', and 'gem'.
Mystic numbers (Re: the secret of PI)
by larsen (Parson) on May 04, 2001 at 16:39 UTC
    If someone could be able to give a proof that \pi's digits follow a casual distribution, you could find in it every possible finite sequence of digits. Thus, you could find on \pi the source for Perl 6, all nodes of PerlMonks (even those that are not written yet) and so on...

    Furthermore, such a true casual number exists: we are able to define it and we know some of its properties, but it is demonstrated that we can't compute it. This number is called \Omega, and it's defined as the probability that an Universal Turing Machine halts given random input.

    \Omega has other interesting properties. If we could know \Omega we would be able to solve the halting problem for every Turing Machine, finding a solution to, for example, the Goldbach's conjecture and Collatz's game.

    If you want to read more about this mystic number and related topics, visit the home page of this wise man.

      I like the Infinity engine (found here). It uses the notion that:
      • after one second, do X
      • after half a second, do X
      • after a quarter of a second, do X
      • after an eight of a second, do X
      • ...
      That way, after 2 seconds, we have executed "X" an infinite number of times.

      japhy -- Perl and Regex Hacker

        This sounds like a variant on my patented Time Extensible Processor. The TEP projects your task far enough into the future so that it is done now. It has an interesting side effect, however. If the tasks ever stop running, it indicates the end of the universe. But because of how time and space work, you can simply pick up the machine and move it a few inches to the left or right to resume processing. At least, until that time/space thread ends.

        --Chris

        e-mail jcwren
      The usual name for this is a "normal number". It is unknown whether Pi is normal, but it is strongly suspected to be.

        Not as if it's much consolation, but a statistical analysis shows that both pi and e1 have each digit (0..9) appear one tenth of the time. It's not a rigorous mathematical proof of normality, but it shows that such a proof shouldn't be able to be disproved, which is important in itself...

        nuf evah,
        jynx

      Pi is
        Pi is (normal)
        Can you provide a proof for that?
Re: the secret of PI
by LameNerd (Hermit) on Aug 19, 2003 at 23:40 UTC
    pi=C/d

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2024-04-16 16:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found