cat va "Miau"

Todos estamos familiarizados con el concepto de un catprograma. El usuario escribe algo, se repite al usuario. Fácil. Pero todos los catprogramas que he visto hasta ahora han pasado por alto un hecho: un catva "Miau". Entonces, su tarea es escribir un programa que copie todo STDINa STDOUT MENOS que la entrada sea cat, en cuyo caso su programa debería salir cat goes "Meow".

Tanteo

Este es el código de golf , por lo que su puntuación es su recuento de bytes, con algunos modificadores:

• Si su programa funciona para cualquier animal adicional que no sea cat(por ejemplo cow: cow goes "Moo"), para cada animal adicional: -10
• Si su programa no usa la palabra "gato": -15
• Si su programa responde foxcon "¿Qué dice el zorro": -25

Animales y sonidos que van de la mano:

cow goes moo duck goes quack sheep goes baa bees go buzz frogs go croak

Cualquier otra cosa en esta lista está permitida.

Reglas

• Se aplican lagunas estándar
• No debes escribir nada a STDERR
• Puede usar comillas simples / sin comillas en lugar de comillas dobles.

Tabla de clasificación

Aquí hay un fragmento de pila para generar una tabla de clasificación regular y una descripción general de los ganadores por idioma.

Para asegurarse de que su respuesta se muestre, comience con un título, usando la siguiente plantilla de Markdown:

## Language Name, N bytes

¿Dónde Nestá el tamaño de su envío? Si mejora su puntaje, puede mantener los puntajes antiguos en el título, tachándolos. Por ejemplo:

## Ruby, <s>104</s> <s>101</s> 96 bytes

Si desea incluir varios números en su encabezado (por ejemplo, porque su puntaje es la suma de dos archivos o desea enumerar las penalizaciones de la bandera del intérprete por separado), asegúrese de que el puntaje real sea el último número en el encabezado:

## Perl, 43 + 2 (-p flag) = 45 bytes

También puede hacer que el nombre del idioma sea un enlace que luego aparecerá en el fragmento de la tabla de clasificación:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=62500;var OVERRIDE_USER=46470;function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"http://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(-?\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Pyth, 231-255 = -24 bytes

-24 * 10 animales adicionales, -15 para la cadena sin "gato"

pzI}zJv.Z"xÚ]Arà E¯âñMOÛ|°
Ø¢mÞ½`&ÉR¯'_ãPÍm1;ñÝ|,F ¹×z#½öÂ÷ÜAPúõMh#Ì©UOC *CÑ°k%¹ö´qÌzj,å<&{jàRFÖ(¥s    ñ`GÂ:çkô#ù\M+üqíéaw ÑuW6Lã,¶w/'87ö×_r]¢:jkz»ÚFÙ¦ÈcÅËØíëûÖOa¿Þµ´6 ø¡ãEþþ:"jk(" goes "N@JzN

Enlace al código

Pseudocódigo

Auto assign z to input
print z
J = decompress animal-sound dict
if z in J:
    print " goes ", J[z], '"'

Animales que conoce:

{'hare': 'squeak', 'seal': 'bark', 'lion': 'growl', 'rook': 'hiss', 'sheep': 'baa', 'hamster': 'squeak', 'moose': 'bellow', 'grasshopper': 'chirp', 'rhinoceros': 'bellow', 'cat': 'meow', 'tiger': 'growl', 'stag': 'bellow', 'crow': 'caw', 'okapi': 'bellow', 'snake': 'hiss', 'cicada': 'chirp', 'badger': 'growl', 'dog': 'bark', 'cricket': 'chirp', 'tapir': 'squeak', 'bird': 'chirp', 'sparrow': 'chirp', 'lamb': 'baa', "frog": "croak", "raven": "croak"}

TeaScript , 29-15 = 14 bytes

No usa cadena cat.

xr(/^c\at$/,'$& goes "Meow"')

"¿Qué dice el zorro" (longitud = 21) es más largo de lo que vale la bonificación.

CJam, 12 bytes

q_:)"dbu"=" goes \"Meow\""*

El programa tiene una longitud de 27 bytes y no usa la palabra cat( -15 bytes ).

Pruébelo en línea en el intérprete de CJam .

Cómo funciona

q_                e# Read all input and push a copy.
:)                e# Increment all code points of the copy.
"dbu"=            e# Push 1/0 if the result is/isn't "dbu".
" goes \"Meow\""* e# Repeat the string that many times.

APL (Dyalog) , 28-15 = 13 bytes

{⍵,' goes "Meow"'/⍨⍵≡⌽'tac'}

Entrada seguida de goes "Meow"si la entrada es equivalente a tacinvertida.

Pruébalo en línea!

{... } función anónima

 ⌽'tac' invierta la cadena (para obtener la bonificación de -15 evitando los personajes cat)

 ⍵≡ Booleano para saber si el argumento es idéntico a ese

 ' goes "Meow"'/⍨ use eso para filtrar la cadena (es decir, devuelve una cadena vacía si es falsa)

 ⍵, anexar al argumento

Pila , 51 bytes

'' input dup 'cat' = { 'cat goes "meow"' } if print

JavaScript, 45 - 15 = 30/264 - 235 = 29

alert((s=(d='MeowBuzzSongMooMooCawBarkQuackCroakHissOinkBaaSingRoarLowCooCawBarkBaaHissCryRoarSingC\x61tBeeBirdCattleCowCrowDogDuckFrogHorseHogLambLarkLionOxPigeonRookSealSheepSnakeSwanTigerWhale'.split(/(?=[A-Z])/))[d.indexOf(i=prompt())-23])?i+' goes "'+s+'"':i)

Desventaja: debe escribir el nombre del animal con la primera letra en mayúscula y el resto en minúscula. Mire abajo para otra versión que arregla esto. Esta versión escapa al agato con \x61e incluye código para los 22 animales adicionales de esta lista (todos los animales permitidos que tenían palabras lo suficientemente cortas como para valer la pena):

zumbido de la abeja 7
canción del pájaro 8
Moo del ganado 9 Moo de la
vaca 6 graznido de
cuervo 7
ladrido de perro 7 graznido de
pato 9
croar de rana 9
silbido de caballo 9 silbido de
cerdo 7
baa de cordero 7
alondra cantar 8
rugido de león 8
buey bajo 5
paloma coo 9
grajo de grava 7
corteza de foca 7 corteza de foca 7 8
ovejas baa 8
silbido de serpiente 9
grito de cisne 7
rugido de tigre 9
canto de ballena 9

(gracias a mi amigo por ayudarme con la tediosa tarea de hacer esta lista)

Código sin golf:

data = 'MeowBuzzSongMooMooCawBarkQuackCroakHissOinkBaaSingRoarLowCooCawBarkBaaHissCryRoarSingC\x61tBeeBirdCattleCowCrowDogDuckFrogHorseHogLambLarkLionOxPigeonRookSealSheepSnakeSwanTigerWhale'.split(/(?=[A-Z])/);

input = prompt();
index = data.indexOf(input);
sound = data[index-23];
result = sound ? input + ' goes "' + sound + '"' : input;
alert(result);

Primera versión, 45 bytes - 15 bonus = 30

alert((i=prompt())=='\x63at'?i+' goes "Meow"':i)

Sí, lo sé. Pasé de 30 a 29 con TODO ese trabajo extra. ¡Fue divertido!

Versión que permite la entrada completa en minúsculas, 294 bytes - 235 bonus = 59

alert((s=(d='MeowBuzzSongMooMooCawBarkQuackCroakHissOinkBaaSingRoarLowCooCawBarkBaaHissCryRoarSingC\x61tBeeBirdCattleCowCrowDogDuckFrogHorseHogLambLarkLionOxPigeonRookSealSheepSnakeSwanTigerWhale'.split(/(?=[A-Z])/))[d.indexOf((i=prompt())[0].toUpperCase()+i.slice(1))-23])?i+' goes "'+s+'"':i)

También intenté eliminar la carcasa de la matriz de datos con, .join().toLowerCase().split(',')pero en su lugar terminó tomando 297 caracteres.

JavaScript, 81 - 20 - 15 = 46 bytes 50 - 15 = 35 bytes

(o=prompt()=="ca"+"t")&&o+=' goes "Meow"';alert(o)

GNU sed, 37-15 = 22 bytes

sed -r 's/^(\x63at)$/\1 goes "Meow"/'

MATLAB, 58-15 = 43 bytes

Bastante sencillo, con bonificación por no usar caten el código:

x=input('');if isequal(x,'dbu'-1);x=[x ' goes "Meow"'];end;x

La entrada debe darse entre comillas simples: ' '.

Javascript, 117 bytes

for(c=0,s="bee.Buzz.bird.Song.c\at.Meow.cow.Moo.crow.Caw.dog.Bark.oxen.Low.owl.Who.rook.Caw.sheep.Baa.swan.Cry".split('.'),p=prompt(),a=![];c<s.length;c+=2){if(p==s[c])a=c}if(!a)alert(p=='fox'?'What does the fox say':p);else alert(s[a]+' goes "'+s[a+1]+'"')

Definitivamente no he ganado aquí, pero he cubierto muchos animales adicionales.

Javascript, 31 bytes

p=prompt();alert(p=='c\at'?p+' goes "Meow"':p)

HALT , 71 - 15 = 56 bytes

1 IF "cat" 2 ELSE 3
2 TYPE "MEOW";HALT
3 SET 0;NEXT
4 INCREMENT;STORE 0

HALT es un lenguaje que (@Downgoat) hice diseñado para el procesamiento de cadenas, el único problema es que es un poco largo

Formateado

1              IF "cat" 2 ELSE 3
2 TYPE "MEOW"; HALT
3 SET 0      ; GOTO 6
4 INCREMENT  ; STORE 0

Python 3, 81 70 55 46 - 15 = 31 bytes

Gracias a Stewie Griffin por guardar 15 bytes.

Gracias a grc por guardar 8 bytes.

No usar la cadena catda -15 bytes.

y=input()
print(y+' goes "Meow"'*(y=="ca""t"))

JavaScript, 48-15 = 33 bytes

Usos \x61como un sustituto de la aen cat.

i=prompt();alert(i=="c\x61t"?i+' goes "Meow"':i)

Perl, 46-15 = 31

$_=join'',<>;s/(?<=^ca)t$/t goes "Meow"/;print

Ruby, 49 46 50 - 15 = 35 bytes

Bastante sencillo, supongo. No usa gato.

$<.map{|l|puts l==?c+'at
'??c+'at goes "Meow"':l}

Editar: ¡Gracias por @ w0lf por guardar 3 bytes!

PHP, 1204 - (10 * 64) - 15-20 = 529 bytes

<?php $i = $argv[1];$s = json_decode(gzuncompress(hex2bin("78da555351b2db200cbc8a27dfee057a1b192bc018104f40dcbccebb7b25d9499d8fcc588b10abddcddf1b64e4e8a04c3bd1eac86db7df3774e136dfa0744c5451805688bb400bac1e5900cfb42703ba1e3bc6e3ce82dabe8cef6f2d22af52b910b95ad93b72d173a22c8083f4d0f63bc75c131aa2e332d2ae45886e43ed7769082f438afc52027df46b20182af457b83c24537ad2c199484b99f6fe669dd9afcd6cc70ef67972a03bb8c10915abb12aa995bc7206deac48555818a9e80ea46cf8142020fe0aa0ccd761327e0db00e046f745426d0c531610d22af609d47aea8dade91d998ad447aebcef6aef0b32d7d64b8df4ddd84a0173c436b816a35475efbf8110bc254a3bf6a1420b76e7d1788f1a346ceb14f8e61b98c0bc44ddb0a46afe284582b55ea9087e1af2004236b3999278a452726c8cb8bef3c2d0086b14ad362f1f3b4032fe67b8aa59cae88742744aab26ccff3f47a2583af11ad0f344c0a1119910553b2d864929562270577b14a87d10635ea351a3e0895572ffd11f0f8ac0867fadf36898668249c65a732448e387de481c1c96931272598863c8ed09ec6b17020874c5792ac1e5bea8ee234c7c238df1a42faff449360552b55c05660d3d5426c4dcb0a7c26f874ac75f0d7a7da0e079da7145d74f848418fc71f5a75d652947a4e1edd469715fae023e29e96c3b0c748027e847a87c4ef4cc893820438722f666bc9a6cb69facf3f28e87499")));echo array_key_exists($i,$s)?"$i goes {$s->$i}":($i=="fox"?"What does the $i say":$i);

Utilizo una matriz comprimida de sonidos de animales codificada por json gz. Esto significa que funciona con los 65 animales permitidos, pero mi guión es enorme. También funciona con zorro y no tiene la palabra gato.

MATLAB, 46 bytes

regexprep(input(''),'^cat$','cat goes "Meow"')

Es cierto que es trivial. La entrada debe darse entre comillas simples.

Haz , 208206-15 = 191 bytes

No es una entrada competitiva, pero es un poco divertido de hacer. Comprueba el primero para las letras de la entrada contra cat. Si se produce una falta de coincidencia, se abrirá un acceso directo al programa cat estándar. Si coincide, se agregarágoes "Meow"

'''''''''>`\/n@>`)'''>`++\
/++++++++++/r /SP''+(++++/
\+)'PSrn@--S/ \rn@`>`)rn'''''>`++++++)++@P'p++++@'p-----@`p++@'p-@``p@++@'''''>`+++++++++)--@'p++@'p-----@++++++++@``p++@H
/@<  (`<     < `<    ''<
>ruH

Java = 222 bytes (comprimido)

public class A {public static void main(String[] args) {Scanner a=new Scanner(System.in);for(;;){String b=a.nextLine();if(!b.equalsIgnoreCase("cat"))System.out.println(b);else {System.out.println("meow");System.exit(0);}}}

O podría descomprimirlo.

Lote = 52 bytes

set /p k=
if "k"=="cat" (echo cat) ELSE (echo %k%)

Javascript: 48 caracteres, 48 ​​bytes

function(s){return (s=="cat")?"cat goes meow":s}

Prueba

=>"Perro"

<="Perro"

=>"gato"

<="El gato hace miau"

Haskell, 52-15 = 37 bytes

c"\99at"="\99at goes \"Meow\""
c s=s
main=interact c

Utilizando \99como un sustituto de c en "cat" para obtener el bono de 15 bytes.

O , 22 16 14 bytes

29 bytes - 15

Q "tac" `J = J" va \ "Miau \" "+ Q?

Es largo y se puede jugar más al golf.

𝔼𝕊𝕄𝕚𝕟 , 23 - 15 = 8 caracteres / 58 - 15 = 43 bytes

ïċɘ㴃탵ˠⓀ㐀攁退胦ްおр夁䰰ᷗȿ 쨀#

Try it here (Firefox only).

La relación byte a char es real.

Pyth, 82-95 = -13 bytes

+z*}zKc."atÜiÃ'4ãl¾Eªîiû<-È&e"\jjk[d"goes"dNr@c."bw««[áÅ3ÏB"\c%x`Kz3 3N

Finalmente pude convertir mi nueva entrada funcional de Python 2 a Pyth. No le gana al mejor contendiente. Resulta que juntar más animales en un diccionario más grande reduce la puntuación más rápido que asociar inteligentemente animales con sonidos. Esto admite 8 animales además del gato: rinoceronte, okapi, alce, león, tigre, tejón, hipopótamo y ciervo.

Pruébalo en línea

Japt, 25-15 = 10 24-15 = 9 bytes

Primera vez que prueba Japt:

N¦`¯t`?N:`¯t goƒ \"´ow\"

ƒdebe reemplazarse con caracteres no imprimibles U+0083 Compila a:

N!="cat"?N:"cat goes \"meow\""

Vieja solución:

N¥`¯t`?`¯t goƒ \"´ow\"`:N

Pruébalo aquí

Pyth, 26-15 (sin "cat") = 11 bytes

¡Mi primer programa Pyth!

Iqz_"tac"+z" goes meow";Ez

Pruébalo aquí

Explicación

   _"tac"                   # Reverse the string "tac"
Iqz                         # If the input equals "tac" reversed
         +z" goes meow";    # Append " goes meow"
                        Ez  # Else, use the input.
                            # Implicit: print the input, if it's used.

C ++ 11, 316-11 * 10-15 = 191 bytes

#include <map>
#define t(a,b){#a,#b},
using s=std::string;int main(){std::map<s,s>m{t(cow,moo)t(crow,caw)t(dog,bark)t(hog,oink)t(lark,sing)t(lion,roar)t(oxen,low)t(rook,caw)t(seal,bark)t(sheep,baa)t(swan,cry){"c""at","meow"}};s l;while(int i=~getchar())l+=~i;printf("%s",(m[l]==""?l:l+" goes \""+m[l]+'"').c_str());}

Compila bien con VisualStudio. GCC quiere que lo haga #include <string>y #include <cstdio>. Sería más corto si no fuera por bonos, pero todavía espero que el autor revise los bonos. No puedo pensar en un lenguaje en el que la definición cow -> moosea ​​más corta que 10bytes. 3+key+valueBytes de costo de mina para animales y planos adicionales22+17 bytes para definir la estructura y así.

Sin golf

#include <map>

#define t(a, b) { #a, #b },
using s = std::string;
int main()
{
    std::map<s, s> m{
        t(cow,moo)
        t(crow,caw)
        t(dog,bark)
        t(hog,oink)
        t(lark,sing)
        t(lion,roar)
        t(oxen,low)
        t(rook,caw)
        t(seal,bark)
        t(sheep,baa)
        t(swan,cry)
        { "c""at", "meow" }
    };
    s l;
    while (int i = ~getchar())
        l += ~i;
    printf("%s", (m[l] == "" ? l : l + " goes " + m[l]).c_str());
}

Pyth, 31-15 = 16 bytes

Puedes probarlo aquí

In+C99"at"zz;E+z" goes \"Meow\"

Explicacion:

I                                # If-statement
 n                               # not equal
  +C99"at"                       # Adds the char 99 with the string "at" = "cat"
          z                      # z, the user input
           z                     # Print the user input
            ;                    # Ends all open parentheses
             E                   # Else-statement
              +z" goes \"Meow\"  # Adds ' goes "Meow"' to z and prints the result

C, 76 bytes

main(){char a[99];gets(a);printf("%s%s",a,strcmp(a,"cat")?"":" goes meow");}

PHP, 70-15 = 55 bytes

<?=$l=rtrim(stream_get_contents(STDIN),~òõ),$l==~œž‹?~ߘšŒßݲšˆÝ:'';

(guardado como ISO-8859-1)

Utiliza constantes indefinidas invertidas como literales de cadena:

• ~òõ == "\r\n"
• ~œž‹ == 'cat'
• ~ߘšŒßݲšˆÝ == ' goes "Meow"'

Todo se combina en una sola declaración de eco, abreviada con <?=