Ich bin ein Mentor bei RubyLearning und eine der Übungen, die wir unseren Schülern geben, ist die "Deaf Grandma" -Übung aus Chris Pines Buch " Learn to Program ". Hier ist die Beschreibung:

Schreiben Sie ein Programm für gehörlose Großmütter. Was auch immer Sie zu Oma sagen (was auch immer Sie eingeben), sie sollte antworten mit: "Huh ?! Sprechen Sie, Junge!", Es sei denn, Sie rufen es (geben Sie alle Großbuchstaben ein). Wenn Sie schreien, kann sie Sie hören (oder glaubt es zumindest) und schreit zurück: "Nein, nicht seit 1938!"

Lassen Sie die Oma jedes Mal ein anderes Jahr rufen, damit Ihr Programm wirklich glaubwürdig wird. Vielleicht jedes beliebige Jahr zwischen 1930 und 1950. (Dieser Teil ist optional und wäre viel einfacher, wenn Sie den Abschnitt über Rubys Zufallszahlengenerator am Ende des Kapitels über Methoden lesen.) Sie können nicht aufhören, mit Oma zu sprechen, bis Sie Ruf "Tschüss".

Nach mehreren Kursiterationen habe ich versucht zu sehen, wie klein ich das bekommen kann und habe es jetzt auf 112 Zeichen reduziert:

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

Ich bin gespannt, in wie wenigen Zeichen dies in der Sprache Ihrer Wahl erreicht werden kann, da Ruby hier meiner Meinung nach bereits sehr gut abschneidet.

Bearbeiten: Die unten veröffentlichte Perl-Lösung führte zu

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

Das sind 92 Zeichen für den Ausdruck + 2 weitere Zeichen für die Optionen nund l.

Perl, 85-91

Ausführen mit perl -nE '<code goes there>'( ngezählt in Programmgröße):

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

Das nachstehende Ausrufezeichen ist sehr teuer ...

Von IK vorgeschlagene Änderungen:

• Die Verwendung eines regulären Ausdrucks anstelle einer Zeichenfolgenübereinstimmung erspart die -lglobale Option sowie zwei Programmzeichen: -3.
• Verwenden einer tatsächlichen Variablen zum Speichern eines Werts und zum späteren Interpolieren (Genius! Wer hätte daran gedacht, eine Variable dafür zu verwenden?): 0.
• Diese Variable $=als Ganzzahl festlegen: -4.

(Und es summiert sich immer noch nicht und ich bin zu müde, um herauszufinden, warum. Na ja, die letzte Zählung stimmt zumindest)

Python 120 Zeichen

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()

Irgendwelche Tipps zur Verbesserung?

131 Zeichen in PowerShell:

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!"}}

Mit Leerzeichen:

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!" }
}

18 Charaktere auf Joeys Vorschlag gedrückt.

Übrigens, 'Learn to Program' war das erste Programmierbuch, das ich jemals von vorne bis hinten gelesen habe.

C # - 234 Zeichen

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));}}}

Besser lesbar:

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 Zeichen

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

EDIT: Den "BYE" Teil komplett verpasst. Neue Version kommt bald.

EDIT 2: Eigentlich macht das es ein bisschen zu komplex für meine mageren Befunge-Fähigkeiten. Vielleicht versuche ich es später noch einmal, aber ich kann mir im Moment keine einfache Art der Implementierung vorstellen.

C # - 194 Zeichen

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();}}}

Mit Leerzeichen:

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();
        }
    }
}

Mit etwas Inspiration von Nellius und fR0DDY.

Bitte lassen Sie mich wissen, ob es verbessert werden kann.

D: 246 Zeichen

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!");}}

Mehr leserlich:

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!");
    }
}

Javascript, 142 Zeichen, davon 29 zufällige Jahr

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 Zeichen

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

Windows PowerShell, 121 117

Aufgrund der Art der Aufgabe sieht dies ziemlich identisch mit der Lösung von Ty Auvil aus , obwohl es unabhängig geschrieben wurde:

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

Vielen Dank an SpellingD für den Vorschlag,

Haskell (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

Das Seltsame ist, dass Haskell-Code in der Regel viel kürzer ist als vergleichbarer C-Code, wenn man ein „ernstes“ Programm schreibt.

APL (76)

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

C # - 345 Zeichen

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);}}

Verdammt wortreiche Sprache ... :-)

196 Zeichen (aber undicht)

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();}}}

Das ist @ Richards (undichte) Antwort mit zwei Parens (siehe unten) und einem \ n, das dort hinzugefügt wird, um die EOL in beiden Fällen zu erhalten. Ansonsten " + "ist das nur Platzverschwendung.

Formatiert

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(); 
        } 
    }
}

UPDATE: Um meinen Kommentar zu den benötigten Parens zu verdeutlichen, bekomme ich Folgendes ohne die Parens (dh mit @ Richards ursprünglicher Lösung):

Und mit den Eltern:

Keiner von diesen nutzt meine zusätzliche \nobwohl.

Bash: 136 128 Zeichen

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

Begrenzte Alternative: 132 123 Zeichen

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

Sie können unbegrenzt mit einem Gehörlosen sprechen, aber die Konversation mit diesem späteren Code wird durch die Anrufliste begrenzt. (In meinem Test wird es nach 4989 Aufrufen beendet.)

Javascript - 133 131 130 128 127 121 Zeichen

Golf-Version von www0z0ks Lösung

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)+'!');

Bearbeiten: Mit diesem tollen Tipp wurden weitere sechs Zeichen gespeichert

Clojure - 160 154 Zeichen

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

Ich arbeite ein bisschen mehr daran, Golf zu spielen. Vorschläge sind willkommen.

Führen Sie REPL durch

Q, 115

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

Verwendung

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
'