-
Notifications
You must be signed in to change notification settings - Fork 1
/
Euler_Problem-050 (short).b93
56 lines (47 loc) · 4.59 KB
/
Euler_Problem-050 (short).b93
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
v // Project Euler - Problem 50
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
###########################################################################################################################################
>"d" :10p 45* :20p*00p230p" ":03p13pv >040p030p>>30g1+:30p:10g%\10g/1+g"X"-#v_30g40g:1+40p:10g%\10g/1+p00g30g`#v_v
v < _^#`g03g00<^ < < 0
>"X"30g:10g%\10g/1+p30g>30g+:00g\` #v_$>30g1+:30p:10g%\10g/1+g" "-|v p091 p080 p07-10 p060 p+1/g01\%g01:p04:-1g04<
>90g"= ",,.@ ^p+1/g01\%g01:\" ":< ^ <v p08<
>70g1+:70p:10g%\10g/1+g80g+:00g\`#^_70g1-70p$v
vp05g04g08 < <<
>:50g\50g:10g%\10g/1+g-#v_$. @ >80g60g1-:10g%\10g/1+g+70g:10g%\10g/1+g-v^p09*-10g09<p07-1g07p08-g+1/g01\ %g01:g07g08<
^ p05-1g05<_>$060g90g+`#v_90g1-| >:00g\`!#v_8 0p90g:60g+60p70g+70p^>90g1- |
>80g60g:10g%\10g/1+g-70g1+:10g%\10g/1+g+^ $ ^p06+1g06p08-g+1/g01\% g01:g06g08<
> > ^
[0,0] Sieve Size (1 000 000) // ~ 2 000
[1,0] Sieve Width (2 000) // ~ 200
[2,0] Sieve Height (500) // ~ 10
[3,0] Loop Index (2++)
[4,0] Loop Write Index (After init: prime arr size)
[5,0] temp
[6,0] min
[7,0] max
[8,0] value
[9,0] direction
primes[?]
:10g%\10g/1+ [g|s]
isPrime
40g50p>:50g\50g:10g%\10g/1+g-#v_$$ // prime
^ p05-1g05<_>$ // composite