대상파일: Upload:Alice.txt SVN 저장소: svn://zeropage.org/home/SVN/project/CodeRace/20060105 = 요구사항 = 요구사항에 다음 입력 파일 예제가 쓰인다고 가정한다. {{{ aaa ccc bbb aaa }}} == 1 == 텍스트 파일을 읽어 공백 단위로 분리해서 화면에 한 줄에 하나씩 출력한다. {{{ aaa ccc bbb aaa }}} == 2 == 중복되는 단어를 제거하고 단어가 몇 번 나오는지를 출력한다. {{{ aaa 2 ccc 1 bbb 1 }}} == 3 == 정렬된 결과를 출력한다. {{{ aaa 2 bbb 1 ccc 1 }}} == 4 == 알파벳이 아닌문자들은 제외한다 {{{ a,bcd -> abcd end. -> end "quato" -> quato }}} == 5 == count 뒤에 하나의 아스키값 총합을 하나 더 출력한다. 만약 문자가 AA라면 {{{ AA 1 96 }}} = 소스 = || 작성자 || 소스 || || 상협, 유선 || [CodeRace/20060105/상협유선] || || 아영, 보창 || [CodeRace/20060105/아영보창] || || 민경, 선호, 재선 || [CodeRace/20060105/민경선호재선] || || 도현, 승한 || [CodeRace/20060105/도현승한] || || 휘동 || [CodeRace/20060105/Leonardong] || || JuNe || require 'strings'
alpha=:((97&+,65&+)i.26){a.
alphaonly=:#~e.&alpha
d=:alphaonly each cut (LF,' ') charsub s
w=:{./.~ d
c=:<"0 #/.~ d
ascii=: +/@(a.&i.) each w
sort w ,. c ,. ascii || = thread = * 창준이형 저것이 무슨 언어에요? 되게 짧게 가능하네요,, - [(namsang)] - JayLanguage 라고 다른곳에 적혀있네. - 임인택 * 재미 있다~ㅋㅋㅋ - 이승한 ---- [CodeRace]