'과장'은 일반적인 쿼티 키보드 맵에서 왼쪽에 입력 할 수있는 단어의 예입니다. '독점'은 오른손의 예입니다.

words한 손으로 입력 할 수있는 단어를 찾기 위해 유닉스 파일을 검색합니다 . 출력은 두 줄로 이루어져야합니다. 왼손에는 공백으로 구분 된 단어 목록과 오른손에는 목록이 있습니다. 예 :

a abaft abase abased abases abate abated abates abbess abbesses ...
h hi hill hilly him hip hippo hippy ho hokum ...

왼쪽 글자는 다음과 같습니다.

qwertasdfgzxcvb

오른쪽 글자는 다음과 같습니다.

yuiophjklnm'

대문자는 한손으로 간주됩니다. 분음 부호가있는 문자는 양손으로 계산되므로이를 포함하는 단어는 무시할 수 있습니다.

sed, 78 바이트

1{x;s/^/! /;x};/^['h-puy]*$/IH;/^[a-gq-tv-xz]*$/I{G;x};${x;y/\n/ /;s/! */\n/p}

GNU sed가 필요합니다. sed -n -f words.sed < /usr/share/dict/words

배쉬 ( 100 89 문자)

for x in a-gq-tvwxz h-puy\'
do grep -iE ^[$x]*$ /usr/share/dict/words|tr '
' \ 
echo
done

21 개의 문자는 단어 파일의 전체 경로로 이동합니다. pwd가 / usr / share / dict라고 가정하면 16 개의 문자를 저장할 수 있습니다.

신용 정보는 다음의 제품에 대하 짧은 정규 표현식에 대한.

배쉬, 86

for x in a-gq-tvwxz h-pyu\'
do egrep ^[$x]*$ /usr/share/dict/words|tr '
' \ 
echo
done

for내 egrep 인 Taylors 는 문자 그룹을 크로싱합니다.

정의에 따라 두 손으로 맹목적으로 입력하는 경우 대문자를 생성하려면 항상 왼손을 사용하여 오른손의 대문자를 생성하고 그 반대도 마찬가지입니다.

물론 W왼손만으로 대문자 를 만들 수도 있지만 junk원하는 경우 왼손으로도 만들 수 있습니다.

본 쉘, 55 자

^{(또는 Bourne과 같은 쉘이지만 bash, zsh또는 yash)}

w=$1;f()echo `grep -ixe[$1]*<$w`;f a-gq-tvwxz;f h-puy\'

이라고합니다 sh -f words.sh /usr/share/dict/words. (물론, 시스템에 sh실제로 bash어떤 리눅스 배포판처럼 사용하는 다른 Bourne 씨처럼 같은 쉘 ash, ksh, mksh, pdksh, posh...)

자바 스크립트 (노드), 201 바이트

f=require('fs');c=d='';r=(a=f.readFileSync('/dev/stdin')+c).split('\n');a.
replace(/[aqzxswcdevfrbgt]/ig,'').split('\n').map(function(k,i){k==r[i]&&(
d+=k+' ');!k.length&&(c+=r[i]+' ')});console.log(c,d)

이것은 아마도 다른 언어로 훨씬 짧은 버전으로 다시 쓰여질 수 있지만 노드를 사용 해보고 싶었습니다.

로 실행 node words.js < /usr/share/dict/words

Q ( 121140 바이트)

출력이 정확히 동일하지는 않지만 (공백 대신 백틱) Q가 문자열 유형을 표시하는 방식의 증상입니다.

i:read0`:/usr/share/dict/words;
0N!/:i:`$/:i where each (min each) each flip i in/:\:(x,upper x:"qwertasdfgzxcvb";y,upper y:"yuiophjklnm");

편집 : 대소 문자 +20자를 처리해야했습니다.

루비, 112 92 자

편집 : 이것은 재미는 없지만 짧습니다.

puts %w(a-gq-tv-xz 'h-puy).map{|r|File.read('/usr/share/dict/words').scan(/^[#{r}]+$/i)*' '}

기발한:

puts File.read('/usr/share/dict/words').scan(/(^[a-gq-tv-xz]+$)|(^['h-puy]+$)/i).transpose.map{|w|w.compact*' '}

아주 간단한 정규식 기반 솔루션입니다. 다른 것들과 마찬가지로 파일 이름을 ARGV로 전달할 수 있거나 현재 디렉토리에 있다고 가정하면 일부 문자를 저장할 수 있습니다.

파이썬, 130 바이트

a="\n"
b=""
try:
 while 1:v=raw_input();m=[x.lower()in"yuiophjklnm'"for x in v];v+=" ";a+=v*all(m);b+=0**any(m)*v
except:print b+a

로 실행 python one_handed_words.py < /usr/share/dict/words

하스켈 (191)

import Char
g x=all(`elem`x)
f m[]=m
f[x,y](w:ws)|g"quertasdfgzxcvb"w=f[w:x,y]ws|g"yuiophjklnm'"w=f[x,w:y]ws|1<2=f[x,y]ws
main=getContents>>=mapM(putStrLn.unwords).f[[],[]].lines.map toLower

Python 2.7 (139 자)

import os
a=set("yuiophjklnm'")
c=os.read(0,9**9).lower().split()
print'\n'.join([' '.join(filter(x,c))for x in a.isdisjoint,a.issuperset])

펄, 72 바이트

$a{/^['h-puy]+$/i-/^[a-gq-tv-xz]+$/i}.=y/\n/ /rfor<>;print@a{1,-1,$,=$/}

와 실행 perl words.pl /usr/share/dict/words

Python- 152137 자 (미정)

r,a,b=set("YUIOPHJKLNM'"),[],[]
try:
 while 1:
  w=raw_input()
  s=set(w.upper())
  if r|s==r:a+=w
  if s-r==s:b+=w
except:for x in a,b:print' '.join(x)

편집 : 대문자와 아포스트로피를 처리하십시오.

파이썬, 243 자

편집 : 질문에 따라보다 준수하는 프로그램이 있습니다.

import sys
def o(w):
 r="yuiophjklnm'";f=2;w=w.lower()
 for l in w:
  if(f==1)&(l in r)|(f==0)&(l not in r):return 2
  f=l not in r
 return f
y=[[],[],[]]
for w in sys.stdin.read().split('\n'):y[o(w)].append(w)
for i in y[0:2]:print' '.join(i)

호출 : python onehanded.py > /usr/share/dict/words또는 개행으로 분리 된 단어가있는 다른 단어 파일

old : 141 자, 단일 단어 함수

반환 right또는 left경우 wonehanded하고, both양손을 사용하는 경우.

def o(w):
 r="yuiophjklnm'";f=2
 for l in w:
  if(f==1)&(l in r)|(f==0)&(l not in r):f=2;break
  f=[1,0][l in r]
 return'rlbieogfththt'[f::3]

Q, 95 (하드 코드 dict 경로를 사용하는 111)

{`$'e[(w(&)l(w)in .Q.a except a)],(e:enlist)w(&)(l:all')(w:(_)read0 -1!`$x)in a:"yuiophjklnm'"}

용법

q){`$'e[(w(&)l(w)in .Q.a except a)],(e:enlist)w(&)(l:all')(w:(_)read0 -1!`$x)in a:"yuiophjklnm'"} "/usr/share/dict/words"
`a`a`aa`aa`aaa`aaa`aaaa`aaaaaa`aaas`aaberg`aae`aaee`aaf`aag`aar`aara`aarc`aas..
`h`h`hh`hi`hi`hi`hih`hiko`hikuli`hili`hill`hill`hillo`hilly`hilly`hilo`hilum`..

하드 코딩하면 14 자 더

`$'e[(w(&)l(w)in .Q.a except a)],(e:enlist)w(&)(l:all')(w:(_)read0`:/usr/share/dict/words)in a:"yuiophjklnm'"

J, 109

1!:2&2;:^:_1('qwertasdfgzxcvb';'yuiophjkl''nm')((#@[>[:>./i.)&>/#]);:1!:1<'/usr/share/dict/words'[9!:37]0,3$_

나는 이것이 더 잘 이루어질 수 있다고 확신한다. 나는 문자열 조작을하는 법을 모른다 :-(

파이썬 : 122

import os
S=set("yuiophjklnm'")
c=os.read(0,9**9).lower().split()
print"\n".join(w for w in c if set(w)<=S or set(w)^S>=S)

로 시작 :

python name_of_program.py < /usr/share/dict/words

아이디어는 대부분 Dillon Cower와 동일하지만 분리 set(w)<=S세트 동안 하위 세트를 나타내는 데 사용 합니다 set(w)^S>=S.