18 lines
558 B
Text
18 lines
558 B
Text
DECLARE case$[] = { "tree", "abracadabra", "seesaw", "elk", "grrrrrr", "up", "a" }
|
|
|
|
FOR z = 0 TO UBOUND(case$)-1
|
|
|
|
result$ = EXPLODE$(case$[z], 1)
|
|
FOR y = 1 TO AMOUNT(result$)
|
|
FOR x = 1 TO LEN(case$[z])
|
|
IF TOKEN$(result$, y) <> MID$(case$[z], x, 1) AND TOKEN$(result$, x) = MID$(case$[z], x, 1) THEN result$ = EXCHANGE$(result$, x, y)
|
|
NEXT
|
|
NEXT
|
|
|
|
total = 0
|
|
FOR x = 1 TO AMOUNT(result$)
|
|
INCR total, IIF(MID$(case$[z], x, 1) = TOKEN$(result$, x), 1, 0)
|
|
NEXT
|
|
|
|
PRINT MERGE$(result$), ":", total
|
|
NEXT
|