17 grudnia 2013 (wtorek), 23:27:27
Euklides i BASIC
No i wyszło na to, że Euklides miał rację. Nie wiedziałem o tym. Aby go sprawdzić musiałem BASICa na Macu zainstalować co nie jest łatwe i z czym zapewne nawet Euklides z Eulerem by sobie w 3 minuty nie poradzili.
A efekt? Oto, proszę. Sprawdziłem do 100 ale myślę, że potem też się sprawdza, a BitCoinów na tym mi się liczyć nie chce.
ChipMunkBASIC chyba zostanie na moje Macówce na stałe.
>list
5 let s = 0
10 for i = 1 to 100 step 2
20 let s = s+i
30 print i,s,sqr(s),(i+1)/2
99 next i
>run
1 1 1 1
3 4 2 2
5 9 3 3
7 16 4 4
9 25 5 5
11 36 6 6
13 49 7 7
15 64 8 8
17 81 9 9
19 100 10 10
21 121 11 11
23 144 12 12
25 169 13 13
27 196 14 14
29 225 15 15
31 256 16 16
33 289 17 17
35 324 18 18
37 361 19 19
39 400 20 20
41 441 21 21
43 484 22 22
45 529 23 23
47 576 24 24
49 625 25 25
51 676 26 26
53 729 27 27
55 784 28 28
57 841 29 29
59 900 30 30
61 961 31 31
63 1024 32 32
65 1089 33 33
67 1156 34 34
69 1225 35 35
71 1296 36 36
73 1369 37 37
75 1444 38 38
77 1521 39 39
79 1600 40 40
81 1681 41 41
83 1764 42 42
85 1849 43 43
87 1936 44 44
89 2025 45 45
91 2116 46 46
93 2209 47 47
95 2304 48 48
97 2401 49 49
99 2500 50 50
>