저는 RubyLearning의 멘토이며 우리 학생들에게 제공하는 연습 중 하나는 Chris Pine의 저서 " Learn to Program " 의 "Deaf Grandma"연습입니다 . 설명은 다음과 같습니다.

귀머거리 할머니 프로그램을 작성하십시오. 당신이 할머니에게 무엇을 말하든, 무엇을 입력 하든지, 그녀는 "음?! 당신이 소리 치면, 그녀는 당신을들을 수 있고 (적어도 그녀는 그렇게 생각한다) "아니, 1938 년 이래!"

당신의 프로그램을 정말로 믿을 수있게하려면, 매번 할머니가 다른 소리를 지도록하십시오. 아마도 1930 년에서 1950 년 사이의 임의의 연도 일 수 있습니다. (이 부분은 선택 사항이며, 메소드 장 끝에있는 루비의 난수 생성기 섹션을 읽으면 훨씬 더 쉬울 것입니다.) "BYE"를 외치십시오.

몇 번의 과정을 반복 한 후이 크기를 얼마나 작아서 112 자까지 줄일 수 있는지 확인하려고했습니다.

puts (s||='').upcase==s ? "NO, NOT SINCE #{1930+rand(21)}!":"HUH?! SPEAK UP, SONNY!" until(s=gets.chomp)=="BYE"

루비가 이미 여기서 잘하고 있다고 생각하기 때문에 원하는 언어로 몇 가지 문자를 얻을 수 있는지 궁금합니다.

편집 : 아래에 게시 된 Perl 솔루션은

ruby -nle 'puts($_=="BYE"?exit: $_.upcase!? "HUH?! SEPAK UP, SONNY!":"NO, NOT SINCE #{1930+rand(21)}!")'

이는 표현식의 경우 92 자, n및 l옵션의 경우 2 자입니다 .

펄, 85 91

다음으로 실행 perl -nE '<code goes there>'( n프로그램 크기로 계산) :

$==1930+rand 21;say/^BYE$/?last:uc eq$_?"
NO, NOT SINCE $=!":"HUH?! SPEAK UP, SONNY!"

그 느낌표는 매우 비쌉니다 ...

IK가 제안한 수정 사항 :

• 문자열 일치 대신 정규 표현식을 사용하면 -l전역 옵션과 두 개의 프로그램 문자 -3이 절약 됩니다.
• 실제 변수를 사용하여 값을 저장하고 나중에 보간에 사용합니다 (Genius! 누가 변수를 사용하려고했을까요?) : 0.
• 해당 변수를 $=정수로 제한 : -4.

(그리고 여전히 합산되지 않으며 이유를 찾기에는 너무 졸려요. 아, 적어도 마지막 카운트는 맞습니다)

파이썬 120 자

r=raw_input
s=r()
while'BYE'!=s:
 print["HUH?! SPEAK UP, SONNY!","NO, NOT SINCE %d!"%(1930+id(s)%21)][s.isupper()];s=r()

개선 할 힌트가 있습니까?

PowerShell에서 131 자 :

for(){$j=read-host;if($j-ceq"BYE"){break}if($j-ceq$j.ToUpper()){"No, not since 19$(10..90|random)!"}else{"Huh?! Speak up, sonny!"}}

공백 포함 :

for(){
  $j = read-host;
  if ( $j -ceq "BYE" ) { break }
  if ( $j -ceq $j.ToUpper() ) { "No, not since 19$(10..90|random)!" }
  else { "Huh?! Speak up, sonny!" }
}

Joey의 제안에서 18자를 압착했습니다.

BTW, 'Learn to Program'은 제가 처음으로 커버를 읽은 프로그래밍 책이었습니다.

C #-234 문자

using System;class P{static void Main(){for(;;){var s=Console.ReadLine();if(s!=s.ToUpper()){Console.WriteLine("Huh?! Speak up, sonny!");continue;}if(s=="BYE")break;Console.WriteLine("No, not since 19{0}!",new Random().Next(30,51));}}}

더 읽기 쉬운 :

using System;
class P
{
    static void Main()
    {
        for(;;)
        {
            var s=Console.ReadLine();
            if(s!=s.ToUpper())
            {
                Console.WriteLine("Huh?! Speak up, sonny!");
                continue;
            }
            if(s=="BYE")
                break;
            Console.WriteLine("No, not since 19{0}!",new Random().Next(30,51));
        }
    }
}

Befunge-27x6 = 162 자

> ~:0`  #v _            vv<
         >:"a"`!#v  _:"z"`|
^                <       <
v"Huh?! Speak up, sonny!"0<
v"No, not since 1938!"0 <
>:# #, _@

편집 : "BYE"부분을 완전히 놓쳤다. 새로운 버전이 곧 나옵니다.

편집 2 : 실제로, 그것은 나의 빈약 한 Befunge 기술을 위해 너무 복잡합니다. 나중에 다시 시도 할 수도 있지만 현재로서는 구현할 간단한 방법을 생각할 수 없습니다.

C #-194 문자

using System;class P{static void Main(){var s=Console.ReadLine();if(s!="BYE"){Console.Write((s==s.ToUpper()?"No, not since 19"+new Random().Next(30, 51):"Huh?! Speak up, sonny")+"!");Main();}}}

공백으로 :

using System;
class P
{
    static void Main()
    {
        var s = Console.ReadLine();
        if (s != "BYE")
        {
            Console.Write((s == s.ToUpper() ? "No, not since 19" + new Random().Next(30, 51) : "Huh?! Speak up, sonny") + "!");
            Main();
        }
    }
}

Nellius와 fR0DDY에서 영감을 얻었습니다.

개선 될 수 있는지 알려주십시오.

D : 246 자

import std.random,std.stdio,std.string;void main(){auto r=rndGen();for(;;){auto t=strip(readln());if(t=="BYE")break;if(t.toupper()==t)writefln("No, not since %s!",{r.popFront();return r.front%20+1930;}());else writeln("Huh?! Speak up, sonny!");}}

더보기 :

import std.random, std.stdio, std.string;

void main()
{
    auto r = rndGen();

    for(;;)
    {
        auto t = strip(readln());

        if(t == "BYE")
            break;

        if(t.toupper() == t)
            writefln("No, not since %s!", {r.popFront(); return r.front % 20 + 1930;}());
        else
            writeln("Huh?! Speak up, sonny!");
    }
}

자바 스크립트, 142 자, 그 중 29 명이 무작위 연도를 수행합니다.

n='a'; while((/[a-z]/.test(n)?r="HUH?! SPEAK UP, SONNY!":n=="BYE"?r='':r="NO, NOT SINCE "+Math.floor(Math.random()*21+1930))!=''){n=prompt(r)}

Awk : 97 자

$0=="BYE"{exit}$0=toupper($0)==$0?"NO, NOT SINCE "int(rand()*21+1930)"!":"HUH?! SPEAK UP, SONNY!"

Windows PowerShell을, 121 (117)

작업의 특성으로 인해 독립적으로 작성되었지만 Ty Auvil의 솔루션 과 거의 동일하게 보입니다 .

for(;($j=read-host)-cne'BYE'){if($j-cmatch'[a-z]'){'Huh?! Speak up, sonny!'}else{"No, not since 19$(30..50|random)"}}

제안에 대한 SpellingD 덕분에

하스켈 (189)

import Random
import Char
main=getLine>>=g
g"BYE"=return""
g s|s/=map toUpper s=putStrLn"HUH?! SPEAK UP SONNY!">>main|4>2=randomRIO(30,50::Int)>>=putStrLn.("NO, NOT SINCE 19"++).show>>main

이상한 점은 Haskell 코드는 일반적으로 '심각한'프로그램을 작성할 때 비슷한 C 코드보다 훨씬 짧습니다.

APL (76)

 {'BYE'≢A←⍞:∇⎕←{∧/⍵∊⎕A:'No, not since ',⍕1938+?20⋄'Huh?! Speak up sonny!'}A}⍬

C #-345 문자

using System;class Program{static void Main(){for(;;){if(!t(Console.ReadLine()))break;}}static bool t(string s){bool b=false;if(s=="BYE")return b;int i=0;for(;i<s.Length;i++){b=(s[i]>65&&s[i]<90)?true:false;if(!b)break;}if(b) p("NO, NOT SINCE 1938!");else p("HUH?! SPEAK UP, SONNY!");return true;}static void p(string s){Console.WriteLine(s);}}

젠장 장황한 언어 ... :-)

C #-196 자 (누수)

using System;class P{static void Main(){var s=Console.ReadLine();if(s!="BYE"){Console.Write((s==s.ToUpper()?"No, not since 19"+new Random().Next(30, 51):"Huh?! Speak up, sonny")+"!\n");Main();}}}

그것은 두 개의 parens (아래 참조)와 \ n이 추가되어 @Richard (누설) 대답이며 두 경우 모두 EOL을 얻습니다. 그렇지 않으면 " + "공간이 낭비됩니다.

형식화

using System;
class P
{
    static void Main() { 
        var s = Console.ReadLine(); 
        if (s != "BYE") { 
            Console.Write((
                s == s.ToUpper() ? 
                "No, not since 19" + new Random().Next(30, 51) : 
                "Huh?! Speak up, sonny"
                ) + "!\n");
            Main(); 
        } 
    }
}

업데이트 : 필요한 parens에 대한 내 의견을 명확히하기 위해 parens없이 얻는 것입니다 (예 : @Richard의 원래 솔루션으로).

그리고 괄호와 함께 :

이 중 어느 것도 내 추가를 사용하지 않습니다 \n.

배쉬 : 136128 자

while read s
do
[[ $s = BYE ]]&&break
[[ ${s^^} = $s ]]&&echo NO, NOT SINCE $[RANDOM%21+1930]!||echo HUH?! SPEAK UP, SONNY!
done

제한 대안 : (132) 123 자

f(){
read s
[[ $s = BYE ]]||{
[[ ${s^^} = $s ]]&&echo NO, NOT SINCE $[RANDOM%21+1930]!||echo HUH?! SPEAK UP, SONNY!
f
}
}
f

청각 장애인과 무한 대화 할 수 있지만이 이후 코드와의 대화는 호출 스택에 의해 제한됩니다. (내 테스트에서 4989 호출 후 종료됩니다.)

자바 - 133 개 131 130 128 127 121 문자

www0z0ks 솔루션의 골프 버전

g='';while((i=prompt(g))!='BYE'){/[a-z]/.test(i)?g='Huh?! Speak up, sonny!':g='No, not since '+Math.floor(Math.random()*21+1930)+'!'}

g='';while((i=prompt(g))!='BYE'){g=/[a-z]/.test(i)?'Huh?! Speak up, sonny!':'No, not since '+Math.floor(Math.random()*21+1930)+'!'}

g='';while((i=prompt(g))!='BYE'){g=/[a-z]/.test(i)?'Huh?! Speak up, sonny!':'No, not since '+Math.ceil(Math.random()*21+1929)+'!'}

for(g='';(i=prompt(g))!='BYE';g=/[a-z]/.test(i)?'Huh?! Speak up, sonny!':'No, not since '+Math.ceil(Math.random()*21+1929)+'!');

for(g='';(i=prompt(g))!='BYE';g=/[a-z]/.test(i)?'Huh?! Speak up, sonny!':'No, not since '+parseInt(Math.random()*21+1930)+'!');

for(g='';(i=prompt(g))!='BYE';g=/[a-z]/.test(i)?'Huh?! Speak up, sonny!':'No, not since '+(Math.random()*21+1930|0)+'!');

편집 : 이 훌륭한 팁으로 또 다른 6자를 저장했습니다 .

Clojure의 - (160 개) 154 문자

(#(if(= % "BYE")%(do(if(=(.toUpperCase %)%)(prn(str"No, not since "(+ 1930(rand-int 9))"!"))(prn"Huh?! Speak up, sonny!"))(recur(read-line))))(read-line))

좀 더 골프를 타기. 제안을 환영합니다.

REPL을 통해 실행

문 115

{while[1;v:read0 0;$[v~"BYE";'`;v~upper v;-1"No, not since ",/:(($)1?1930+(!)20),'"!";-1"Huh?! Speak up, sonny!"]]}

용법

q){while[1;v:read0 0;$[v~"BYE";'`;v~upper v;-1"No, not since ",/:(($)1?1930+(!)20),'"!";-1"Huh?! Speak up, sonny!"]]}`
Hi
Huh?! Speak up, sonny!
Hello
Huh?! Speak up, sonny!
HELLO!
No, not since 1938!
Goodbye Grandma
Huh?! Speak up, sonny!
BYE
'