■lispのreverseを使った回文とそのチェックについて
bashだけなら以下。
回文をチェックする。
http://labunix.hateblo.jp/entry/2012/05/04/003001
■clisp+bash。
reverseの結果もformat tに渡して一致すればカウントは2になる。
$ echo "しんぶんし" | \
awk '{print "(format t (reverse \""$1"\"))(format t \""$0"\")"}' | \
clisp -q | awk '/\[/{print $2}' | uniq -c
2 しんぶんし
■gcl+bash
gclのreverseは日本語に対応していないようだ。
$ echo "とまと" | \
awk '{print "(format t (reverse \""$1"\"))(format t \""$0"\")"}' | \
gcl | awk -F\> '/>/ && (NF>1){print $2}' | uniq -c
1 ��㾁㨁
1 とまと
■sbcl+bash
sbclのreverseはclispと同様の結果。
$ echo "しんぶんし" | \
awk '{print "(format t (reverse \""$1"\"))(format t \""$0"\")"}' | \
sbcl | awk '/\*/ && (NF>1){print $2}' | uniq -c
2 しんぶんし
