Hex words: Difference between revisions

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

<syntaxhighlight lang="bbcbasic"> INSTALL @lib$ + "SORTLIB"

sort%=FN_sortinit(0, 0)

DIM Result$(127)

*LOWERCASE ON

F%=OPENIN(@dir$ + "unixdict.txt")

WHILE TRUE

W$=GET$#F%

IF W$ < "g" ELSE EXIT WHILE

IF LENW$ > 3 IF INSTR(W$, "o") == 0 THEN

D%=EVAL("&" + W$)

IF LENW$ == LEN(STR$~D%) THEN

REPEAT

E%=0

WHILE D% > 0 E%+=D% MOD 10 D%/=10 ENDWHILE

D%=E%

UNTIL D% < 10

Result$(C%)=STR$D% + W$

C%+=1

ENDIF

ENDIF

ENDWHILE

CLOSE#F%

CALL sort%, Result$(0)

PRINT "Root Word Base 10"

FOR I%=0 TO C% - 1

W$=MID$(Result$(I%), 2)

PRINT " " LEFT$(Result$(I%), 1) " " W$ TAB(13) EVAL("&" + W$)

E%=0

FOR J%=ASC"a" TO ASC"f"

IF INSTR(W$, CHR$J%) E%+=1

NEXT

IF E% > 3 THEN

Result$(I%)="z" + STR$LENResult$(I%) + W$ + LEFT$(Result$(I%), 1)

N%+=1

ENDIF

NEXT

PRINT "Total: ";C% '

CALL sort%, Result$(0)

PRINT "Root Word Base 10"

FOR I%=C% - 1 TO C% - N% STEP -1

W$=LEFT$(MID$(Result$(I%), 3))

PRINT " " RIGHT$(Result$(I%)) " " W$ TAB(13) EVAL("&" + W$)

NEXT

PRINT "Total: ";N%</syntaxhighlight>

{{out}}

<pre>Root Word Base 10

1 ababa 703162

1 abbe 43966

1 dada 56026

1 deaf 57007

1 decade 14600926

2 cede 52958

2 feed 65261

3 abed 44013

3 added 712173

3 bade 47838

4 beebe 782014

4 decca 912586

5 dade 56030

6 bead 48813

6 deface 14613198

7 babe 47806

7 fade 64222

8 dead 57005

8 efface 15727310

8 facade 16435934

9 accede 11325150

9 beef 48879

9 cafe 51966

9 dacca 896202

9 deed 57069

9 face 64206

Total: 26

Root Word Base 10

8 facade 16435934

8 efface 15727310

6 deface 14613198

1 decade 14600926

9 accede 11325150

4 decca 912586

7 fade 64222

9 face 64206

1 deaf 57007

9 cafe 51966

6 bead 48813

3 bade 47838

3 abed 44013

Total: 13</pre>