Anonymous user
ABC words: Difference between revisions
→{{header|Diego}}: Added Diego entry
(Added AppleScript solutions.) |
(→{{header|Diego}}: Added Diego entry) |
||
Line 1,168:
{$IFNDEF UNIX} readln; {$ENDIF}
end.</lang>
=={{header|Diego}}==
<lang diego>add_ary({str},foundWords);
with_file()
()_read⟦{raw},unixdict.txt⟧_splitto(words,⟦\n⟧)
(words)_if⟦[posA]<[posB]<[posC]⟧)_findto(posA,⟦a⟧)_i⟦0⟧_findto(posB,⟦b⟧)_i⟦0⟧_findto(posC,⟦c⟧)_i⟦0⟧
?_(foundWords)_add⟦words⟦⟧⟧;
;
;
;
log_console()_(foundWords);</lang>
Alternatively...
<lang diego>add_ary({str},foundWords);
with_file()
()_read⟦{raw},unixdict.txt⟧_splitto(words,⟦\n⟧)
(words)_foreach(word)
?_(word)_findto(posA,⟦a⟧)_i⟦0⟧;
?_(word)_sliceto(foundA,⟦[posA]⟧)
?_(foundA)_findto(posB,⟦b⟧)_i⟦0⟧;
?_(foundA)_sliceto(foundB,⟦[posB]⟧)
?_(foundB)_find⟦c⟧
?_(foundWords)_add[word];
;
;
;
;
;
;
log_console()_(foundWords);</lang>
Output:
<pre>aback,abacus,abc,abdicate,abduct,abeyance,abject,abreact,abscess,abscissa,abscissae,absence,abstract,abstracter,abstractor,adiabatic,aerobacter,aerobic,albacore,alberich,albrecht,algebraic,alphabetic,ambiance,ambuscade,aminobenzoic,anaerobic,arabic,athabascan,auerbach,diabetic,diabolic,drawback,fabric,fabricate,flashback,halfback,iambic,lampblack,leatherback,metabolic,nabisco,paperback,parabolic,playback,prefabricate,quarterback,razorback,roadblock,sabbatical,snapback,strabismic,syllabic,tabernacle,tablecloth</pre>
=={{header|Draco}}==
| |||