I suspect correct Perl 6 solutions would be really easy.
Yes, indeed, really easy in Perl 6, except that you can't seem to get to infinity. ;-) So there is a need for some other way of stopping the calculation than just looking for /inf/ or the like.
In fact, it is so easy that I just needed to copy and paste your code and run it with Perl 6/Rakudo:
$ perl6 -e 'my $f=3; for (1..16) { $f = ($f-1)**2 if $_>1; say $f }'
3
4
9
64
3969
15745024
247905749270529
61457260521381894004129398784
...
The full output for those interested with big nums (adding an extra newline between the numbers for a better clarity of output) is given below:
$ perl6 -e 'my $f=3; for (1..16) { $f = ($f-1)**2 if $_>1; say "$f\n"
+}'
3
4
9
64
3969
15745024
247905749270529
61457260521381894004129398784
3776994870793005510047522464634252677140721938309041881089
1426569025399667238729130934923238882829828945823401620031787624712187
+3778287073518355813134107244701354409532063744
2035099184229756431316251015574934824175165813211778874861746123496897
+23637228095885608636916042736102424433936617827686729959884103
6128891217800115278496628441361454733328303012425134257674331304922589
+22182178369327277600615170049
4141628689652620107833696993202621473441386420436350115731692724878638
+18634294827524450927852109710160348318072695455158335142824513
0243844337880225132685344815687392481156102866508021020649702280651368
+96022463927443840854409416032445016810212830154376733712774054
9717715331141223378925946374904357861557246214088918533736586300718440
+27270502382514118362057066336953632413044243697160474126640511
45036200112860484582835666729438057291869006178181083787956322304
1715308820295367904467053922111089646033859199145912947868441513265365
+94317188735071570583477343712955343265694968460883781283408711
6666516938862598110810562117819284113097036733506466874743823947285606
+80896591171121187322175551727220989628787239581138608703951162
0868938883918968109951704170722169476853835721524363823551352152137354
+32256519553930963569899321435568915030650119393178324925350879
8733842242187633250561524538174788367089241384827949747136827404851352
+51362679430422086085999177107687407455972470825281321845159800
7454142376941799910708677155675818394033775410219980110588947069596036
+44288887090561685008480372785719084002899341278412998979512673
8999282596767419097274065151086047617423687469894650738862390822368773
+96347757647039314531153803224074784485304687504325328798920584
0534183956041939010302928195563856905931509927691688026930991750483888
+903718128953080544737267722285835192986166354155269215223809
2942284348983086743441752183014748871581116379835839495987321926842867
+59478041965272774823654112547502561913659673932009205601002194
3562799038380951113346960174695705210185300206658570114131114099991181
+06103048175153675867982629416225957407560793029008010590537022
8724540800122050264505571039733426344114279804834351289706818511019158
+78418294159498102113573078206280394081971329295415155460584538
6779427089901848532133305608178333583514089377272643813318043330767336
+45958830989319286364069418362212500521779264517999063810794245
5307277473665218888661922856865726408375123342409779517978122718711887
+09298460379588850037265038299724676216437736823176180143155646
2090524501252932266408918273956415531958320994940710416368259132183730
+21409483771930026601878187040865548405608981491259083086918519
2642319299003000166836253896034856757384786504570830513881289981522105
+99523566938164933456082149563692700570135087939963407166047756
6557221702661508409014554785098829841242864417950116253115128735742192
+39699871888240221939522002876778946151570364460176791234207264
6365512481475033471902940437872616290322476249997767331163087191127730
+08742867992514929670874699962135006442978629388140169326885120
7560716149501114289750716631628043581901501415997944629903186500568450
+41470621225325632459138338391286389082728110959573032165469738
0122733916705958822928894180662020120720538703092414304808106311231361
+45687966324400469886802647053526234228016338246920708529570380
0029593662433775279945648305980820238856347986201515721038386100559424
+30258544707316856534152531962400936345241555921604767301456249
9089340324433561462418903536414895037479066990172953965220632215280432
+80546318870515958465514137921813126648783192361470340628106913
2552480522223955314841971145684637793501832900976792846514502915171270
+238408121333020114609020833057788587908281209991530020864
8657037190270826580876377740689163594828925242964332822716652047087811
+34418465468098351325424841256258326875348584241941630836448727
1994073011457134786978078084036548856428438538885392615095088283054579
+89282993513683826967992594641913946800988376713736476876082013
7284552582456890661348996964917798866046084431036387461241839967161687
+92653838935123030592659186345645248245071416506475549492843488
7753714091234622768274371883470362361785779139851924517891303489895021
+38456372990918302302791232474114501573785896111962550892822558
0400275303421785418178392499519744635288341974713423469260269899122851
+96095561207152048824956835605068750105414310732300249595957814
0566663685278593845783522746876571630557153942142977390013859494502474
+49446231249298927863062312388019045287202794372105245815872825
5179870981650812313186237311654378598922566936064855877558129120452644
+02188098306941631818071306149492199612210445394799552765808721
3423112995187652945519393006226137405772895242945120142817351679655125
+84880753918527449195557128326209786454454297240459349469659545
7806602250760159493920062156202792374696907182070285644840001644807582
+10835118633815005681925891276828092524152570446678547229653807
1513101049966123962685727857523116626149270589026798209022683550524849
+30004265635337715884205214288286648048605858618562946832088327
5035119919346214603939958654519209148570312321354509232208318661931079
+19666500657811856450369657018794279946990436314294017611339504
2896345474574837888278749095069640746752352092622061470048679641849232
+74577144454716134682351072568873743441347208479998232320251044
2657455179395313409351942416167963669970883888635123274211351181686245
+69485634381061989485011901087865242781500790951917493998782626
5311775814208387177352299993318754436883009985737771714138085351911907
+61332695167132116483233754137868304350992590133269065590622187
0969749087289156919810289383723810106169277958341187607717492938228239
+87390382022099557421432141490955576023445667831147715881831634
0669360098593626811539840234469803112102298835829449467714808389417184
+65381639443902264782606152951984800829213295835658182627828182
0910923963165875757845890260221247889350703435699037902156983289553179
+44376950476521804348735020646455202740370301846746980566434889
1595009266628581639160678575206149995043875616399911710363344672244097
+23663947549785590864901567004452609738953748861110345165213996
3874603699518024135994111553304248077632436763606329635416908511639880
+92782731400081105833820924573955266695341386545587636639878047
8640533079571387450665797598846062675480715337104278665051216376070152
+07060395980513272073147670713183616031474477256254434707100442
0090809796530411214180786515628552884508459660135991537783487226379949
+41250524356653858286426026203103877388196619728311703546081009
7627363512017947321535927359422634397915897112002737963635518939900360
+51634413218525834324606606506998724928104545916114063776280403
3285364597206129662528379411458501020745205440792490557832393277504547
+71379701288229020814443095282829382783385670899396200930870803
8753249341476870545243101139388829668150504155707021719605176653585424
+75276648785806515204626048455345138438064038721428995588662235
8304835807173926562125793744703983083087699818194487941445881097227635
+70441822739663282161000419195769224842328295185659503961923310
1167177748896462230775201986323130816514904657405659554022421150597623
+96098523336267487596486991513944874512434686274436974346041316
1990656303231743489623493597173936525985702700722946711963096091838475
+25056736048841198668160144732420316067124077732610263687637678
3528516191028976737779531751689093501138753774333657916643065483881611
+117449494538079637929184435363613509006581215264769
7494429291373220766544803682417772011422217901541552006477471069112741
+52059913164782661889826070097747574808100096090041645338622420
6433511415356732177956539865173025519137592938900676486224478990977053
+82459934053581295926473042788772442208437957651332237451128403
8248455482191922162721766240428589093318783396493768716366310232251490
+86063218122904786309427338810362690257080299655400811546025116
0711877400313200657630946105095599478123331217764642174083028908590153
+13210964237194724391671685049962134152860710123793748339889636
4769009906937560449712691584740420047488813807382393636720099827504098
+53749191970773432401606377086813141002079888119960655942660101
1932064840173766639061771498513671924091103702787689209254155620646483
+38518859247291885052500232428593326330450175594250842999456929
3293804512776090250364019280302491173329819828800925982286210491191702
+09950046932188389123737071924269871607017993931319427872485766
7183941459231894944994820339793878674582111300372179714200358572193568
+45499742576948265048638921279793097800589524194009749757474851
2358732870890155264129765373025372388626954656110086262618345693827777
+77805168215924515596517716011883059348742702214508150359851488
7774115073313440113224331182808911322554546185474750519569950125690309
+26149659197986884529532561116177067248147055875930391209116026
2377854589060433463382565826694663626835682390602032989549168786528413
+91930011632559149083637599097852467529165405104429091549252628
6521235690834639815630082590813691516199232322971660103770621879955470
+36676586664275205410647071889887829713991404557820128044013075
8747512098015311820587744116412211434738810248274357047387243339458920
+09703165874881148865817831694940774498447375231372437179657796
7295465371318214995164193261915953289426644458711370456506742912600102
+95948003821485439773912000223010364744321691551094337208462346
7399140669123061975228248668902944064103428238073652685208656562594987
+33070317528435523245850864539385482502812226634845231649235627
9534641316356996892892983243014308954054396708311505016407542563158364
+01634430118310012490872134757508641706993762905059803608421934
4608562230227996379870143217212708323254726949593864707217339263252900
+29566362238780735385799908954313708503530114925892711480409262
3206702074607071890282435033785314232767857135829163106076896579502047
+60430485215439299608581414004824414720068185345963744485783307
3222831815891560945482251320515695699050697420932933892826131819521680
+78921817050679839013267633676856673407196892646568729150541217
9868375071214951054571460451672703983980175817915965665439979576703721
+61457876596569733680120111978784358577928705560156308600134842
0025099730551725268808264994037153292045591642391356590345899504138094
+26974782892895743593873780611672758962280347877757357357683265
9607529355588089338802665492576518732672741790288134319581448762880403
+84317649614617401076476612944152520887759727473623134158867655
1230273436250352610695443402606750417211276148619739929083819295823686
+34978789730052793476978736655283706879327725491545012486561476
6170462949691395869081323316293196807845599496102100268401901477384512
+40032196845158953179935993276190200006470513739780382467438061
6053545774175455404951544103752252714655179256746760279618092992278056
+51059348431135538521977645648495850850825319332384859487193043
1338927503441611472912969642258116609986668705295632215715492479926451
+90899715526155251453586283306221747245564470140097214248948069
1590696127944425550489987187833468958913438643859640240346961992871300
+82826323140594806435863539554987662108712917166768327095394402
0957838763904906214610923763258517718895107790711025152210075810260672
+71573653918467997624773215567792959210562790137638450814459776
8246621565708314377404202074072176065573046672350148348457530499460340
+49373477555616070935600779595730088898970568871837238679201732
6815738750950783139036556157442933758765747142371477463720923947688623
+73973851430188870721157130240117921551022932390253828607448362
5710868418966732571298394912254208023837147901184194976627745145615523
+47951092404388192698964150666223772402100481459782503654192777
3138043992417907312780944349418919526430810753965606661680273095837433
+85002967607826004968216859529467344226809895441421509333071770
0070252527625295283228328783765952454029243344589967346445268011452404
+17290309300855415754759858717551013329509669654997319845698971
8057215983470150145743467605388405171056991379181335192545074976345045
+76403526065760299257724172928508719146733993531114600046794122
6154062572666200212963354559470114094020827621402411907347418391382122
+55768642119496454820297790971553404621709230474422314665693533
6660483730412049191717395680553734262615323804157378263640177603054969
+74986806657281125836783462532628318588945344141963775159571822
4775573778628191986162518568468108638962614467715710673483858640232277
+76682135173634077568920023520142311171046403199848554841706610
2303335487355658785162524213819832073289419785087942362167596702932221
+53746451732030094236021074894879168239476044880808658141073421
3544907047010455298868159715399553044882661350475298557958448116723181
+31573135333799322161581168709069574735510492158042782934252881
6619647154109377357620358249833916060556348506382612266725672395514519
+52848471446519444156327494167649858648481174267503884721892977
6833098978242967217108944852002106842477721648911935021079842638475777
+22969394706463708357616137283357054159730035775381763325782150
1123615698873211174847885439011303654143898327350088484066399278427755
+48296952750212155372347401324274984440397936162524027022715299
2362641244513458778777022826242307151720763089800463048502375745879367
+10997361746177588395064937781489751740147831295950602544150048
0817757588203894136150607510688302236607761894172463622588818877665889
+25072816271872030324985190158403713473675782721665699914314644
5453851013136556708445546902768742823192965611014153703480787212213385
+55739584548017654084411489306992472130603882591108283186256388
8926627534502705758204868751657759964412576798446061993367314404392682
+35392925819330907669416449458980791949827524975098472542689443
8854897713819803717799752735305537548824367651666410366934646652595988
+09823404014234725992462830814918878673700379890600774335173968
6303912703267859060136752889860759578427380208486680450956770203324954
+01446554008915686005613870949510289760705939890887227900069262
6140871184808805165068330662594775798469733131369149299762869639016920
+45506515034217287978352433483539026619754100495193308672179299
1179986540974387022351451624269735348360917713372936535972491259277107
+64308773246832601880472231961768344598048021315328314118387349
6768628911073807693562717797765899414988070599880067797051753048136815
+95221081592994255925909775563750878423343923496618853902558110
7116320914169583701839569217876744356152318729136493293226744737147087
+14301602647739805829489651951816864664472939343544676565481192
3718923538346072503712668976425642861996969271025381503138098073610700
+71952827581038734768561948146097624073326869222899704328998568
5461615639093667517120356204340653446483603299187391491597803622136322
+36338368079526695814642669758507690504084943369340452947342688
1503953910617751535088872429070623719177430059992253622218079869772368
+42655988278772500595153283655852926472364176850594812787742742
0337999319547061332639122812019036538179695068231223035911230807766438
+8165324777524016625496185215336342093824
The last number above has more than 7300 digits. The whole one-liner script executes in less than 1 second, but it starts to show a noticeable slow down when getting above 16.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|
