Revision as of 20:11, 25 July 2023 (view source) Jjuanhdez (talk \| contribs) (Added BASIC256. Grouping BASIC dialects) ← Older edit		Revision as of 07:07, 8 September 2023 (view source) Chkas (talk \| contribs) m (→‎{{header\|EasyLang}}) Newer edit →
Line 833: <syntaxhighlight lang="easylang"> ~~proc~~func ~~isprime~~isprim n ~~. r~~ . rif n mod 2 = 10 and n > 2 if n <= 1return 0 r = 0▼ ~~break 1~~ . ~~if n mod 2~~i = 03 sq = ifsqrt n ~~= 2~~ while i <= ~~break 1~~sq . ~~r = 0~~ ~~break 1~~ . ~~for i = 3 step 2 to sqrt n~~ if n mod i = 0 ~~r =~~return 0 ~~break 2~~ . ▲ ri += 02 . return 1 . ~~proc~~func goldbach n ~~. cnt~~ . ~~cnt~~for i = 02 to n div 2 ~~for~~ i = 1if toisprim ni ~~div~~= 21 ~~call~~ ~~isprime~~ i rcnt += isprim (n - i) ~~if r = 1~~ ~~call isprime n - i r~~ ~~cnt += r~~ . . return cnt . numfmt 0 3 for n = 4 step 2 to 202 ~~call~~write goldbach n r ~~write r~~ if n mod 20 = 2 print "" . . ~~call~~print goldbach 1000000 r ~~print r~~ </syntaxhighlight>

Goldbach's comet: Difference between revisions

Goldbach's comet (view source)