10/06/13 16:31:53 lV2bpcq40
TOKEN() と連想配列でやってみた
DIM うんこ = "1 5 10 18 25 37 56 58 68 74 81 97 99"
HASHTBL hash
DIM str = うんこ
WHILE LENGTH(str)
hash[TOKEN(" ", str, TRUE)] = TRUE
WEND
DIM i
FOR i=1 TO 100
IF hash[i] THEN PRINT i+"に うんこ発見"
NEXT
10/06/13 16:31:53 lV2bpcq40
TOKEN() と連想配列でやってみた
DIM うんこ = "1 5 10 18 25 37 56 58 68 74 81 97 99"
HASHTBL hash
DIM str = うんこ
WHILE LENGTH(str)
hash[TOKEN(" ", str, TRUE)] = TRUE
WEND
DIM i
FOR i=1 TO 100
IF hash[i] THEN PRINT i+"に うんこ発見"
NEXT