Find words whose first and last three letters are equal: Difference between revisions
Find words whose first and last three letters are equal (view source)
Revision as of 20:18, 6 September 2021
, 2 years ago→{{header|Julia}}
Line 406:
murmur oshkosh tartar testes
</pre>
=={{header|Ksh}}==
<lang ksh>#!/bin/ksh
# Find list of words (> 5 chars) where 1st 3 and last 3 letters are the same
# # Variables:
#
dict='../unixdict.txt'
integer MIN_LEN=5
integer MATCH_NO=3
######
# main #
######
while read word; do
(( ${#word} <= MIN_LEN )) && continue
first=${word:0:${MATCH_NO}}
last=${word:$((${#word}-MATCH_NO)):${#word}}
[[ ${first} == ${last} ]] && print ${word}
done < ${dict}</lang>
{{out}}
<pre>antiperspirant
calendrical
einstein
hotshot
murmur
oshkosh
tartar
testes</pre>
=={{header|Nim}}==
| |||