Вычислить сумму всех простых чисел, не превышающих 2000000. - Lisp

Формулировка задачи:

Помогите написать программу на лиспе и F# для решения следующей задачи Сумма простых чисел меньших 10 равна 2 + 3 + 5 + 7 = 17. Найти сумму простых чисел, не превышающих 2000000.

Код к задаче: «Вычислить сумму всех простых чисел, не превышающих 2000000. - Lisp»

textual
> (time (product-primes 2 20000))
Real time: 0.1720104 sec.
Run time: 0.15625 sec.
Space: 3796940 Bytes
GC: 7, GC time: 0.0 sec.
2171111972612485690304537347277148754525044224281933984018705661760140345255545016926230709201141573923270038820499118533822189062740962690193132765863698454977814546240709831587374522582819292613022259542583756735523397997641680702221104950878783909974527786207287130926293373498945136459589874510870307801749933323998820218125910732404289816952222508492893982082120085537401118278789581427933735727304723066796376466343380543543261371062619175779528188644921842311860787876809647897385083362420550071884103072615588208782977451040906042340234393743414677437827225703285435748078300715964287110810667352820998459335375972543127266645165842409629866907980288447681045452635827372867977547180434870587566640524793677669894335457256721248040572139303513521681500457239742514670176314919173694546507975937103956322727290866857823671356690160749170720917137946363397879070554192432299139182038669264275143055550204021934038585039628853221881988867128378468874340871630666503942509057189705290775131347256455706461396099850935408718603130898372141800562892823081990358111420728337617722087959110949530268626401958053987507991984829260918287139646845426609865752436345913029431285071240479299419272970286134864401033401713999646727007522735323711275573681906197837675342274957588009165704400481200984869134636284123358776339239921348024796381238835355203573161608727632779471785550175348060638715601421804615784313874855459547296078906142677673768335954727673300155051060180738481615992068364577049360653655428582896096464168874828292155182708143271822809355495870620858437051463611941902114963327191699885925197176752220817792543559807691807275089927280650459147644635417582317955096086231453030610748483730901576680209366425557285266644184259318249840282601058227258132001527503813334173386855316725057477288244503798937820777373474935051125115884923491980931020661235265895291192905545208302507884493441311269493939765053860798008846110614201209484035895816435088576218555601687456355028092150827964249521877981752304880774464099879715976907687734033376738495995663227390625282439978225697209569787332715074816067465343047854128636441750707128097075261202908720360877689034362688632447176823397243841012298277677290594188027939109959013167541255074762688199681130859355278895617927112751792091794016419507262450367302882900381871776561425168467835412486183976960770060858410348389847164419236882677786046091534874660405310605280299723532348112282525535653347395231576256320126744954587828739833944781576403576273846998156678331023581542992198519398382485805857750450637462232993135806619080951864005196885944041086346227169760723916179605989936533934452490450696112641449537928743450765469030771600433793432127752476399293483235825964502571018087519338654882915930717557426213332435326992958766569535451439981383731918726641937400538982251501485574483884503236711835022848250004186620412927256404933158173420112294012903000782500403753190823272396815045665956996391580770623371387823014310940312277815604126164618542819694239500736215820294638778324585016647683093154492235314409511257995130293191759443626668407166260107810904912793049407365574252046068130127021342047258274591409384429261134921816754175858549581131774831489606587852384028764450991194296087651326298338615312099076475659150045182162624896617075333004444245039387763876064692473464512333528953573068568328050828159106272650809885964939571297364549692119002625330388035305440959190901804260121100475184408377725040414383861406281385566388935583196480866083387828707552687826328495378705225611852472252566866087597373486852359527772857993046521046796044980502093089546857353411462465497724553765148593175786217721387152098922265156034112864428818221519044122374370389685980069854632120987210061846077609108872791682951460625779946550885780203287516695155181725448486082657611654343859950782791335723003175378747075450326480837618193891695229006588287547285562401117230997754241390504390243873033505199747015808729669165324358334181824833005695371274595824998309344669509326614435604136160087146362729239881358092504362126587639144022274462390579904860013641356361542882629326017650890860121066792908388639761972784287413266670400436236811940789799541331033467018673488374387209317210565879194526183400146544141930955977927445977157653889764151954741797083822035308366425073967573653995041540882217923236243510452741794293450986897514780399080596749230331540221378901681694100966529848691816412899398030914220454013491717273857708802783084107067409054132981106100731151594659285560753551658231051527791313214871777266913019062420667825245202943437952245757250604749687571408838500654100361860700006743080259677718848440464884125496153698705898786500422227958427891183476217067786082379253921211924125000224734395859551919161880404296485726644641713257521922744165961923299871304639484346426554475889857312223209514035381642941691919401444162577818690045875198118671303332482613771349450944518690872786965119712702132272384098915269561731995032761087341597240288377087378781547529185380574960382520290265394587949753337764575700303022327241426503188545559624348632091894321298749136799953101151335355400812940316586509114125912773727984861741226188314909641242460139990535201100245380129974019465786792382885423229115659383421254331939018251081761287985904190366277542932456362635646785454165479355229012491863530279282325463493868556928624957684498267006432557979171472577332524455386511546838809323419415917254077620972102698878168318889494201298036355663833798815022334256875010440124298641942883397414780465448984037421152192562871898751027628943698426993119032596457133245045482139942373136491464801976639181654007900409776102435040792761287563133886567896853977117539843847378496979794447249086207359109075088208646547169769730012981845636071960181742602014750151832843934249836912515155933531958285627959317174026051613070050527553612268595565938990874231120765384481316926015833649583623885763447869457991863035105756566723909597762939337779130113594679225982187224109948850311779123135474597420724184868776327822546813016849656651032644199895134231186636082763961871063876331163312811412582301532153469778099897450760822749058509615541615464286010446858027985507755776214367707807827042136104457973345057466904214333841459360639608443605635420932264284660708204528026086803022817029433766325069799989936311541182684007519672743224437802411404877868868599957652844097757063572584916210445866868926737243843304957770731022322409851987194690945040402091748919125338209768202183237611655412092944446157193035773087985346296747500997268575020575746525977666061798278658232163493276123496425936260252590382643120462089352134758511163397901378596925773191025282041083025154752009382152458825857148230335041988996314918164271031166511340306669796662046638339215576673424127719114900267910359945601560212334075496423554125500581701651688155560530056484347715735468635057362300586107670770275151552709626606779787691299301306578535354886885309507490118822168361628099638726652539256787533521289133879041862000021745834036231292783672986179217740202374556215294113024373101100961013482890157443871947332431671949748564364853588724396284950998709701520486128700596393532078803646135071523860104636195238986171023073070501950290767432764332364133271487532017053932473872266547974257625248283674845265629699129998464502762139828024680758404239795485210152257775002490112938680363423676326842644899199395950881678912987270518616830840954486196919945920367817630397458912259244269670720702600800005589771407223018035767386806771648259527519610009735844700533802987137924917929762256698034131833390180681594456264430249336055891730824395029565609808961180598903563719410934842965518288012135107620355996172390216184667484044246882305149451301631038854580470446423946457481538096275449963276882894880162202646520072756599609015807951668753719542748250645398768059341846517202078168585301855925736815977621774633022274757168621816687014183413923284363675613124807488615209182879734086309164352145902881618110725780849533062276989708179944106093868562330280171568802056788461624061608349757487805517379436697845629972436666052580564933211382932263078239845695805730037930404438396827618424630632005872635141916308408094806862536210452163058051329419292173734485466089355059901860961336963618939252989898445668574592898966805688723191842650517148067500529456295905716186661938992966290506336197001388370738653279584668442881253165438416067506034756559864737102421821054741893414907987702726677701846426003576304909348635505518391245956960690309930389490

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ