#99 Article 1076 Posted at 1995/12/25 05:16:19 by ＢＡＡ (MAP5104) [SAHOU.5]
Subject: Re: プログラミング作法・５：回文の判定 /1063
調子にのって j です。
----------------------------------------
upcase=.((>&96){-/&(0 32))"0
alph=.(>&64)*.(<&91)
rev =. '(*./(|.=])(alph #]) upcase a.i.y.)#y.' : ''
----------------------------------------
前回は、ほんとにソートするだけという特殊な例だったので、短かっ
ただけで、実際はこんなもんです。(でも、一行で書ける。)
ＢＡＡ