Skip to main content
Code Golf

Return to Answer

edited body
Source Link
tmartin
tmartin
  • 4k
  • 15
  • 16

Q, 115

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

usage

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

Q, 115

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

usage

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

Q, 115

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

usage

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
'
added 5 characters in body
Source Link
tmartin
tmartin
  • 4k
  • 15
  • 16

Q, 82115

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

usage

q){$[x~upperwhile[1;v:read0 x;"No0;$[v~"BYE";'`;v~upper v;-1"No, not since ",/:(($)1?1930+(!)20),'"!";"Huh";-1"Huh?! Speak up, sonny!"]"]]}"hi grandma"1
"HuhHi
Huh?! Speak up, sonny!"
q){$[x~upper x;"No, not since ",/:(($)1?1930+(!)20),'"!";"HuhHello
Huh?! Speak up, sonny!"]}"HELLO GRANDMA
HELLO!"
"NoNo, not since 19321938!"
Goodbye Grandma
Huh?! Speak up, sonny!
BYE
'

EDIT: Just realised this doesn't include the "BYE" termination feature.

Q, 82

{$[x~upper x;"No, not since ",/:(($)1?1930+(!)20),'"!";"Huh?! Speak up, sonny!"]}

usage

q){$[x~upper x;"No, not since ",/:(($)1?1930+(!)20),'"!";"Huh?! Speak up, sonny!"]}"hi grandma"
"Huh?! Speak up, sonny!"
q){$[x~upper x;"No, not since ",/:(($)1?1930+(!)20),'"!";"Huh?! Speak up, sonny!"]}"HELLO GRANDMA!"
"No, not since 1932!"

EDIT: Just realised this doesn't include the "BYE" termination feature.

Q, 115

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

usage

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

Q, 82

{$[x~upper x;"No, not since ",/:(($)1?1930+(!)20),'"!";"Huh?! Speak up, sonny!"]}

usage

q){$[x~upper x;"No, not since ",/:(($)1?1930+(!)20),'"!";"Huh?! Speak up, sonny!"]}"hi grandma"
"Huh?! Speak up, sonny!"
q){$[x~upper x;"No, not since ",/:(($)1?1930+(!)20),'"!";"Huh?! Speak up, sonny!"]}"HELLO GRANDMA!"
"No, not since 1932!"

EDIT: Just realised this doesn't include the "BYE" termination feature.