61 lines
1.1 KiB
Bash
Executable File
61 lines
1.1 KiB
Bash
Executable File
#!/usr/bin/env bash
|
|
#
|
|
# External tools: none.
|
|
# Subshells: none.
|
|
#
|
|
# V1: initial version
|
|
|
|
shopt -s extglob
|
|
|
|
# set to mask to enable logs. 0: none, 255: all
|
|
(( debug=2#00000000 ))
|
|
(( debug=2#00001111 ))
|
|
# $1: log level (mask), then strings to display.
|
|
debug () {
|
|
(( debug & $1 )) && shift && echo Line ${BASH_LINENO[0]}: "${@}" >&2
|
|
#local -i i
|
|
#if (( debug & $1 )) ; then
|
|
# for ((i=1; i<$1; ++i)); do
|
|
# echo -n " "
|
|
# done
|
|
# shift
|
|
# echo "${BASH_LINENO[0]}: ${@}" >&2
|
|
#fi
|
|
}
|
|
|
|
die () {
|
|
echo "${@}" >&2
|
|
exit 1
|
|
}
|
|
usage() {
|
|
die "usage: anagram.sh word anagrams-list"
|
|
}
|
|
|
|
# check for basic args
|
|
(($# < 2)) && usage
|
|
word="$1"
|
|
shift
|
|
# we will accept more than 1 anagram list:
|
|
# anagram.sh "BANANA" "banana BANANA" = anagram "BANANA" "banana" "BANANA"
|
|
# we start to split words
|
|
declare -a words
|
|
while (($# > 0)); do
|
|
words=("${words[@]}" $1)
|
|
typeset -p words
|
|
shift
|
|
done
|
|
debug 1 words=${#words[@]}:${words[@]}
|
|
typeset -p words
|
|
|
|
|
|
exit 0
|
|
|
|
# emacs/vim settings.
|
|
# Local Variables:
|
|
# sh-basic-offset: 4
|
|
# indent-tabs-mode: nil
|
|
# comment-column: 40
|
|
# fill-column: 80
|
|
# End:
|
|
# vim: set tabstop=4 expandtab:
|