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

@alina--- · Регистрация: 22.11.2015

Author24 — интернет-сервис помощи студентам

Помогите написать программу на лиспе и F# для решения следующей задачи

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

@helter · 02.04.2017, 18:35

Lisp

(let ((sum 0))
  (doprimes (p 1999999 sum)
    (incf sum p)))
; 142913828922

Макрос doprimes определён здесь:
НОД и НОК

В первый раз у меня считает 1.7 с, во второй раз — мгновенно, потому что список простых чисел уже создан.

@alina--- · 02.04.2017, 18:47 **[ТС]**

Спасибо большое) а на F# не подскажете?

@_sg · 02.04.2017, 20:29

вариант Common Lisp:

Lisp

(defun check (n)
  (loop for a from 2 to (isqrt n)
        never (zerop (mod n a))))
 
(defun sum-primes (n m) 
  (loop for a from n to m
        when (check a) sum a))
 
> (time (sum-primes 2 2000000))
Real time: 79.05548 sec.
Run time: 78.88971 sec.
Space: 2278420 Bytes
GC: 5, GC time: 0.0468003 sec.
142913828922

Добавлено через 8 минут
alina---, https://www.cyberforum.ru/fsharp/

@helter · 02.04.2017, 22:35

Сообщение от alina---

Спасибо большое)

За что? Вы стали лучше лисп знать? Вряд ли. Вы сможете сдать мой код и получить галочку на халяву? Сначала сдайте.

Я пофиксил небольшой баг: https://www.cyberforum.ru/lisp/thread1952013.html

@alina--- · 09.04.2017, 11:30 **[ТС]**

спасибо) а не подскажете, как переделать этот код для перемножения простых чисел?

Lisp

(defun check (n)
  (loop for a from 2 to (isqrt n)
        never (zerop (mod n a))))
 
(defun sum-primes (n m) 
  (loop for a from n to m
        when (check a) sum a))
 
> (time (sum-primes 2 2000000))

@_sg · 09.04.2017, 12:20

Код

(defun check (n)
  (loop for a from 2 to (isqrt n)
        never (zerop (mod n a))))
 
(defun product-primes (n m &aux (p 1))
  (loop for a from n to m do
        (when (check a) (setf p (* a p))))
  p)

> (time (product-primes 2 2000))
Real time: 0.0 sec.
Run time: 0.0 sec.
Space: 51140 Bytes
289374641962945601852615669686352438557198389101635505921978687533534603184099103356713220245045689382193979028466556623300928386426868641265517885761774500699854169800840685305650571905326393891147443503522793860584071591452879655775734323993447280229950516208168456242859704539545043029470723016883062129865188983307445759944131787563777752236534042838736571825768147309875879568648761848492474692269075737993820510968847059797750137738579680583507041487685017149524627916063644375086068999495298981349776540320796738483271972712449573928869390146878678278551706732964746955815021418849063826580384371871911662113251288424597019051505811657455462629184223235168202635751562718522606516698622396025118884934399326179006093117580004591816199377853876305166538715269486496913965338299018641563718412655206993166415109405802877992948356769154670

Добавлено через 1 минуту

Код

> (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

@alina--- · 09.04.2017, 14:57 **[ТС]**

большое спасибо)) очень выручили!

Новые блоги и статьи
Как узнать какой процесс блокирует файл или каталог в Windows bt_guru 23.01.2025 При работе с операционной системой Windows пользователи нередко сталкиваются с ситуацией, когда система отказывается выполнять определенные действия с файлами или каталогами, сообщая, что они. . .	Как в curl узнать код статуса HTTP запроса. Коды состояния HTTP bt_guru 23.01.2025 Коды состояния HTTP играют значимую роль в обеспечении эффективного взаимодействия между клиентами и серверами. При работе с веб-сервисами важно не только отправлять запросы, но и правильно. . .	Как сортировать вывод команды ls в Linux bt_guru 23.01.2025 В операционной системе Linux команда ls является одним из наиболее часто используемых инструментов для просмотра содержимого директорий. При работе с файловой системой пользователи регулярно. . .	Как сделать POST запрос с помощью curl bt_guru 23.01.2025 curl - это мощный инструмент командной строки позволяет отправлять и получать данные через различные протоколы, включая HTTP, HTTPS, FTP и множество других. Особенно полезным curl становится при. . .	Прокрутка в tmux с помощью мыши и клавиатуры bt_guru 23.01.2025 Tmux представляет собой мощный терминальный мультиплексор, который позволяет пользователям создавать и управлять несколькими терминальными сессиями внутри одного окна. Одной из важнейших функций tmux. . .	Как проверить, содержит ли массив значение в JavaScript. Поиск в массиве bytestream 23.01.2025 Эффективный поиск значений в массивах становится критически важным навыком для разработчиков, использующих JavaScript. Процесс поиска элементов в массиве может показаться простым на первый взгляд,. . .
Как удалить тег Git в удалённом репозитории (remote) bytestream 23.01.2025 Одним из важнейших механизмов организации версий в Git являются теги, которые позволяют помечать определенные точки в истории проекта как значимые. Теги часто используются для маркировки релизов,. . .	Чем отличаются URL, URI и URN bytestream 23.01.2025 Системы идентификации представляют собой фундаментальный механизм, позволяющий однозначно определять местоположение и характеристики различных информационных объектов в глобальной сети. Эти системы. . .	Как центрировать div внутри другого div с помощью CSS. Управление расположением элементов в CSS bytestream 23.01.2025 Позиционирование элементов играет ключевую роль в создании качественных и профессиональных интерфейсов. Одной из наиболее часто встречающихся задач является центрирование элементов на веб-странице,. . .	Что означают различные символы в синтаксисе PHP bytestream 23.01.2025 PHP (Hypertext Preprocessor) представляет собой один из наиболее широко используемых языков программирования для веб-разработки, который обладает богатой и интересной историей развития. Изначально. . .	Способы клонирования объектов в JavaScript bytestream 23.01.2025 В современной разработке на JavaScript работа с объектами является фундаментальной частью создания любого приложения. При манипуляции объектами часто возникает необходимость создавать их копии для. . .	Как проверить состояние чекбокса в jQuery. Как работать с чекбоксами bytestream 23.01.2025 При разработке интерактивных веб-форм часто возникает необходимость программно определять состояние чекбоксов с помощью jQuery. Чекбоксы являются важными элементами пользовательского интерфейса,. . .

@alina--- -23 / 0 / 1 Регистрация: 22.11.2015 Сообщений: 60
		1
	Вычислить сумму всех простых чисел, не превышающих 2000000. 02.04.2017, 18:20. Показов 2535. Ответов 7 Метки нет (Все метки) Помогите написать программу на лиспе и F# для решения следующей задачи Сумма простых чисел меньших 10 равна 2 + 3 + 5 + 7 = 17. Найти сумму простых чисел, не превышающих 2000000. 0

@alina--- -23 / 0 / 1 Регистрация: 22.11.2015 Сообщений: 60
	02.04.2017, 18:47 [ТС]	3
	Спасибо большое) а на F# не подскажете? 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	02.04.2017, 22:35	5
	Сообщение от alina--- Спасибо большое) За что? Вы стали лучше лисп знать? Вряд ли. Вы сможете сдать мой код и получить галочку на халяву? Сначала сдайте. Я пофиксил небольшой баг: https://www.cyberforum.ru/lisp/thread1952013.html 1

@alina--- -23 / 0 / 1 Регистрация: 22.11.2015 Сообщений: 60
	09.04.2017, 14:57 [ТС]	8
	большое спасибо)) очень выручили! 0