Data update
This commit is contained in:
parent
8f05c7136f
commit
0bf4da02c3
82 changed files with 2194 additions and 118 deletions
32
Task/Tau-number/Tiny-Craft-Basic/tau-number.basic
Normal file
32
Task/Tau-number/Tiny-Craft-Basic/tau-number.basic
Normal file
|
|
@ -0,0 +1,32 @@
|
|||
10 let count = 0
|
||||
20 let num = 0
|
||||
30 let modulus = 0
|
||||
40 let nums = 100
|
||||
50 let tau = 0
|
||||
|
||||
60 rem do
|
||||
|
||||
70 let count = count + 1
|
||||
80 let tau = 0
|
||||
90 let modulus = 1
|
||||
|
||||
100 rem do
|
||||
|
||||
100 if count mod modulus <> 0 then 130
|
||||
|
||||
120 let tau = tau + 1
|
||||
|
||||
130 rem endif
|
||||
|
||||
140 let modulus = modulus + 1
|
||||
|
||||
150 if modulus < count + 1 then 100
|
||||
|
||||
160 if count mod tau <> 0 then 190
|
||||
|
||||
170 let num = num + 1
|
||||
180 print count, tab,
|
||||
|
||||
190 rem endif
|
||||
|
||||
200 if num < nums then 60
|
||||
Loading…
Add table
Add a link
Reference in a new issue