Friday, January 02, 2015

[okucbyxc] Happy 2015!

The factorial of 2015 expressed in base 147 gives a nice random-looking blob of symbols. (Ironically, it ends in even more exclamation points.) We use the wbr HTML tag to break lines to the width of your browser window. See source code in Haskell. Naive radix conversion is an unfold, though divide and conquer would be more efficient.

radix_convert :: Integer -> Integer -> [Integer];
radix_convert base = unfoldr $ \n -> if n==0 then Nothing else Just $ swap $ divMod n base;

The 147 digits are a subset of Latin-1: !#$%&()*+-/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^abcdefghijklmnopqrstuvwxyz{|}~¡¢£¤¥¦§©«¬®±µ·»¼½¾¿ÆÇÐ×ØÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ

2015! = %4pµòqgê0)\8Çãtm4ç×F2uZó|fµ}åïvYÐ2bt¢áVòøïZ¼hçkð=»Z?¬®SOX1¿\×Ø1Iü@[R§}uØæ5¢ýçt®]ÞP)l[¡ÆxìG@ßàゥPOO<æbkSñû)0±¦qæ)Nw)2Iââ/guíåå/w7çû\wqçJùågD/¡#nE·OýýísõTy(8bV[ôBwíèM¿¢d~LyAAL3ñ]//¼0~FKî¡d¬zúývxáÐúýmþ!lTû¤ç4ñ*^=ø>ôyOô÷¼SfHØó×j9MJ(+F{פ^|û$eL[K[®E®Dìã8H=ô~%¿m¬ZH*M«×¬u02iÿäqð-uîß@8àä#üUDô<æZ¬å/dB#ø-hÞç#6ðhéuï+¢pûs{wXàBf©;¢d\ötDØ{c9ðt¦o¤¤ó/C¡/4·§¢æ<G«ûjPëR<ئxê5èaQ-¾-ᬡñûjy+Vn±4ôfö·¼6úFö»1¤jL|N×ÿpmT£hïðýqìö¦3¾0G1ãmÐ?ü¤dWs@%2VéOBèmQê@e4!EzßØw:¾îbæv%7í!¡&××QMZ£g1ô¡â~öI*gÇô*|<GТ¡F8±0Z±©C×%QCò÷Tê8{ui¤ýÞðH÷½òBaçmjtRIA(£¾Æ+ù¾zwSêhÆôà)-EÞ$·h×mWsúv}¾ÐMâ·k<¦ØçÇî9¦&&¾séûZDYósnro£%×¢½~eê1a?SaUçèq<H=ê2ð3öØyp|б5¢;Jm÷þÞz®$3Þ>ê;v8/~útúp1{CôLëHå[¤nF3\¿(«ãí\ñF!ëYØYeP¡£åmUF¦àm#Çüøã±3Ypû®ó=8⬢y<µd+[FCYá¥Gù+¿)èMóiU)o5cK|B6:w0qQj&:d¦OKõ±iµ+Dl=£í60ë}n-3ë뼩cetO$yOC¾~aà÷®!äu¿Ç\FõC?OQbS¿ÆþþYáéX*¾;Gk¡ùj=zê@Wlk2O¢MK/úTAQìØmügôW¼P¤!#OMuS~XYÇo}jï4£«éïælRrMhà3Çök5L>/¢4à^®wt[ç/eV×ú¬ü(µ{¿R5j5÷^ã½l#]§|;3]§÷1^©eBGæ83fk~]Zj¿í¿mõ(£<G}=evÆ]¼¡÷#ôØè]¾Q3YùéB2+ì×ä}hOgÿíÞø:âszÇ3Øa?SHúX>¾SøW([ûu7~XóX:OR§F«T^DAñ¦(q\ùZþIN½Gæ~3nàD\FX/©çyf*¡armlþú/£9Bi»1>¦(xI]»o(±;:¦©¤Bi@¬¥çÆTÆ;G®möqúGøeuÞ®«4ñ045éa4çzuí©9üÇüVH;FaV}G&n©ïnìpâ!ç4æ/!ÞB¥ür)ß?¿N{[YÞñ·)DL3«g1(oYEàpNêdØï@lê#ó-¤+gûñ!jî@ë!¦e«c3×|aøïj\HmAäû¢[amN[®UU䢬@¼9ìï5s¼@×YpåH~Nu+þdÐÐæIå\fýü¢¦fMï2d÷á¿NL§«!£çu¥ùÐç÷ìbiA1y!yQJ1׫¼p·BF+¾v»^LG@1r%|×BâLS£Tý$$µN|éãfëGAAaCùq¾ò×ø5î{cnó¿)ñuû9÷E¾2ê6Rø{ôðb¢?PmvìRK¤>q#ñnÿ©©¾6¬jAàmõãa}RUR#®£ø8Ð3ós©µ{¤Lòá55)(äk>cùêWaöõReDèzr¾Øycâ2§}Æxá¼Aï:ý~>Q6Riß-SpK6§ô¢Zf»PP&¼s±*ã]ô~JzP5àrq<\·NµNJ{rv^6¦ýï¤-Mx!ì[bå#àí{xÆâpà{ØW}tá-ì=碾NEìMG{ícÿázþ<J®#quhéúPw£:à%µñ(ëÆq<tì꤮sûadFñ9þüC:û¡2åE¾->ÿ3¦$à!}ëµD5ñiVÆÐ>þ%BñL@fð§¬6|ñß9¥¦sþg];m/©b=-/êdöç2<táíñjR:P9q)òãpIq/e¾(íXyVU+-w¢wñVõñr±êqu±w®zHlý4+wèÞW{üÞ@knßi:ß@1¤þ47%RY(@®Çm¿VðbMNøqöó¦súeo]YMæëMðícè©)m4u/6=8½:W*QîüGnxçxïKC½)|ñI]5·dHdçTClã#¿UäWíá|§µqxDáþµòô½äidFY#)êI±åp49ÇxV¦â\Cï8»!®d¼k®¬l£·<¦CJWqqîA}ã7TTS]ý÷\%BSfîôp|ñAnëë?ì%qNÿ~ôÇyî«GlF¾w¡PL;4mÞ3YùßÇ«ØáG¬îä6D¡klàå{&XSyù6ø#N4fµm§x@eüf{âൾ¼*k=·òay÷XS§õi4ø2¢1áèR¦iåú0oqJHdx%á·Ø>¿ë¼¡WßYòälLäçë+2·f(O¬áýKqHj(/)gáý¥XÇP+34zðC83¢¬àøv¬jJfxKP#6±úßMtE0½hû6ÐVòµZJãðï7÷êIøoðTj>v+~xö%}¡ãôüafbm$|F㼬ÇÆAä>ÞL±*3<©C½}¤ç]wý¬ül:¢c}XrøyAo@oàG!raØ«N8¼BdS2OU¥A=|Q¥fiÐòé7G#I§QHH¿Æ0aFï?WB×L>N^§[]í¿¤»øRëi«¥¾v}©×¦3j/Lv/7Yêa!»¤µ|©s?æàî0«ôgëjjhåQØsåpð|»zCPhsø2§k¢yï¥Xé;koTìFäú¾¼y/ìaÞ/6±N;¿$n®Ðs^åí[uæ·êúaoprUpþ~öêaû?ä=ë:§|5z±ív©JØÆeS¬C!+ÐïD|9L4[LC^G@í<b*n2TúMx^ÿ®|m(Ç@ó1¢V(LKtÞçoX*ótíímLýTNVüMí}O~uj$aF8x~XÇýEMZò0¢q*(L2ù×¾+>âXPgh*7qá×Oglãó[KxöQa¼!§E»¥ïß&åAK90akeÞW?oNýTM5O!Uáë¢QýXïj]Op§Yó->%*æ¦ø<6¥jg@tåhWù½p¿þ@4@\«C(êç÷¥×IKçµåïtg¤PNs¡X/5ãdê½|êW¿;®z·qz7Av]ôUo7ûûw{!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

1 comment :

Ken said...

It looks like the Planet RSS aggregator at Planet Haskell fails terribly with the wbr tag.