ABC words: Difference between revisions

m (→‎{{header|REXX}}: added a comment.)
Line 541:
 
=={{header|Julia}}==
See [[]] for the foreachword function.
<lang julia>function lettersinorderisabcword(dictfilew, letters_)
chars = sort(collect(letters))
positions = [findfirst(c -> c == ch, w) for ch in "abc"]
for word in split(read(dictfile, String))
return all(!isnothing, positions) =&& [findfirstissorted(c -> c == ch, wordpositions) for? chw in: chars]""
all(!isnothing, positions) && issorted(positions) && println(word)
end
end
 
lettersinorderforeachword("unixdict.txt", "abc"isabcword)
</lang>{{out}}
<pre>
Word source: unixdict.txt
aback
 
abacus
aback abacus abc abdicate abduct abeyance
abc
abject abreact abscess abscissa abscissae absence
abdicate
abstract abstracter abstractor adiabatic aerobacter aerobic
abduct
albacore alberich albrecht algebraic alphabetic ambiance
abeyance
ambuscade aminobenzoic anaerobic arabic athabascan auerbach
abject
diabetic diabolic drawback fabric fabricate flashback
abreact
halfback iambic lampblack leatherback metabolic nabisco
abscess
paperback parabolic playback prefabricate quarterback razorback
abscissa
roadblock sabbatical snapback strabismic syllabic tabernacle
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>
4,108

edits