Há algum tempo, foi feita a seguinte pergunta: GolfScript, CJam ou Pyth? Baseado apenas no título, pensei que seria um desafio muito bom, mas, infelizmente, acabou sendo uma pergunta pedindo dicas. Aqui está o desafio que eu queria ler:
Quem disse que as línguas de golfe não eram usadas no mundo real? Como todos sabem, a proporção de bugs por linha de código é a mesma independentemente da linguagem de programação usada, portanto há uma clara oportunidade de reduzir os custos de depuração e manutenção com essas linguagens. Sua empresa finalmente viu a luz e decidiu usar a Golfscript, CJam e Pyth para desenvolver seus produtos.
Infelizmente, após alguns meses, seus discos rígidos estão cheios de trechos de código e você nem sabe quais estão escritos em quais idiomas (você até suspeita que alguns de seus programadores usem Perl).
Você deve escrever uma ferramenta para detectar qual de CJam, Golfscript ou Pyth é o idioma em que um programa está escrito. A situação é crítica, você pode usar qualquer idioma que desejar, mas mantenha-o curto (o armazenamento de dados é caro: quanto mais bytes usamos, mais ele custa).
Geral
- Menor vitória no código
- Lacunas padrão, etc.
- Não use um intérprete online
- Você pode escrever uma função ou um programa
- Você pode usar eval para detectar seu próprio idioma
Entrada
- Sua entrada é retirada do fluxo de entrada padrão ou como uma sequência
- A entrada contém apenas caracteres imprimíveis ASCII e alimentações de linha
- O tamanho da entrada tem até 256 bytes de comprimento
Resultado
- A saída é impressa no fluxo de saída ou retornada como uma sequência de strings / símbolos
Se a entrada for sem dúvida um programa X válido , imprima ou retorne X , X ∈ {CJam, Pyth, Golfscript}
Observação : "sem dúvida" não significa que você pode responder com um analisador burro que falha constantemente na detecção de qualquer idioma. Para Pyth , espero que os Programas Simples sejam reconhecidos (mas não codificados). O mesmo vale para CJam ( cheat sheet , exemplos ) e Golfscript ( exemplos ). Os links anteriores apontam para as especificações de cada idioma. Se você usar uma abordagem difusa / bayesiana, "sem dúvida" significa um alto nível de confiança (você pontua 99% com sua classificação, por exemplo). Veja abaixo o conjunto de testes real.
Se a entrada for válida em vários idiomas, cada idioma detectado deverá ser impresso / retornado. Quando impresso, deve haver um separador entre várias saídas (por exemplo, espaço, nova linha, vírgula ...).
- A ordem na qual os idiomas são tentados não importa
- Eu não ligo para o caso (CJam, cjam, CJAM, SPAM) [1]
- Se nenhum dos idiomas acima for detectado, imprima "
Probably Perl
" . Graças a este comentário do mbomb007 , no caso acima você também pode "Seriously
" gerar uma penalidade de 4 bytes (a diferença entre as duas strings).
[1] Só para esclarecer, o spam é inválido.
Exemplos
-
"Crime predicted: -- Calling: 1--555- "30*{_5<{iAa*:mr}&}/
Saída (exemplo de vários valores de retorno)
["Golfscript", "Cjam"]
Entrada
3
Saída (exemplo na saída padrão)
golfscript cjam pyth
Entrada
if {} aazd
Resultado
Probably Perl
No último caso, o programa de entrada produz um erro com os três intérpretes online.
Pontuação, critério de vitória
Menor vitória no código. Adicione 4 bytes se você exibir "Seriamente". Em seguida, aplique bônus.
Testes com falha
A seguir, trechos que não devem ser reconhecidos como nenhum dos três idiomas acima.
Alinhadores (ou seja, uma entrada por linha)$^X=~/([a-z]+)[^\/]+$/;print$1,$/
<>;map($s-=(-1)**$_/(2*$_-1),1..$_),$s=!print$s,$/for<>
((THIS IS LISP HAIKU) (TRULY THIS IS LISP HAIKU) (THIS IS LISP HAIKU))
(format t"~@(~{~R~^, ~}~).~%~:*~@(~{~:R~^, ~}~)."(loop for i to 99 collect(1+ i)))
print sum(ord(c) for c in 'Happy new year to you!')
Brainfuck
>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
++++++++++++++++++++++++++++++++++++++++++++++++.
-----------------.
++++++++.
+++++.
--------.
+++++++++++++++.
------------------.
++++++++.
Perl
@list=( "aaaa",
"aaaaaaaa",
"aaaaaaaaaaaaaaa",
"aaaaaaaaaaaaaaaa",
"aaaaaaaaaaaaaaaaaaaaaaa",
"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa");
while (@list) {
for($i=0;$i<6;$i++){
print length($list[$i])." ";
}
print "\n";
}
Peixe
#ifndef __linux
#include "x.h"
#define X/*\
a=1 set -e
+++++++++++++++++++++_+++++++++++++....Hello World!?:Q:
#endif
echo "Hello, World!"
int m(){}
Conjunto de teste básico
Esses são testes que devem passar. Os seguintes são linhas de uma linha para cada idioma em que o seu programa deve detectar o idioma em que está sendo escrito (não verifiquei em qual deles é poliglota).
Pyth
*2Q
FNrZTN
FNrZhTN
FNUhTN
VhTN
FNr1hQN
=N5N
K5K
K1FNr1hQ=K*KN
K1FNr1hQ=K*KNK
K1FNr1hQ=K*KN;K
DhZK*3ZRK
L?b*bytb1yQ
A(Z1)VQHA(H+HG
Golfscript
;'2706 410'~{.@\%.}do;
;''6666,-2%{2+.2/@*\/10.3??2*+}*`50<~\;
'Hello, world!'
1 2 [\]
CJam
"Hello, world"
{`"_~"}_~
"`_~"`_~
T1{_2$+}A*]`
{__'`>\'x>26*2-*-}/
Y38#
N/s:X,8-,{X>9<__{'a<},,\4%{'Z>},,*I={4=}{;}?}/
Bônus de prata: contagem de bytes * 0,6
Todos os testes anteriores devem passar, bem como os seguintes versos. Todos esses trechos são retirados das respostas reais do CodeGolf.
Pyth
VzJ:zZhZpkJ~Zhy}rJ0-G"aeoui
Vzjdm?@zd}N,dt-lzd\ Uz
jd.iSQs*RtQ,\?":0
rsXOtQmO*-GJ"aeiou"J/Q2*%Q2O"hy"4
VhQIq`N_`NN
s["$$\\varphi=1+"*Q"\cfrac1{1+"\\<\dQ"dots"*Q\}"$$
@c"weak trick fair"d-!JlfhT-M.:us_cG.u+NYtKrH7-52hK.zU52 2>J26
Golfscript
);:|;{0):0;|$:§-1%" - "§" = ""0"4$~§~-+-4>:|n|6174`=!}do"Iterations: "0"."
'-+,/'{)))))}%
4:echo(2+2);
#undef X;A!"$%&'()*+-[,.]/0123456789:<=>?@BCDEFGHIJKLMNOPQRSTUVWYZ\^_`abcghijklmopqrstvwxyz{|}~
{`),32>^.}.~
"126,32>''+".~\-'.~\-"'-
"),@`^^32>#.~".~
...[[]]{{}}&%%++++5i
*++..0011125::::;;;?bbbbcccc{}
"This program wasn't written in "o"GolfScript"", it was built for ""CJam"oo"!"
CJam
"Q"c("ASSW"1$("aRD"(((T1
%\@_@){;_0}*__*)\15
"This program wasn't written in "o"GolfScript"", it was built for ""CJam"oo"!"
"P2"1e3K51_,1>K*$K*~]N*
li__,\mf:i2m1+:*/fb:+
ri:B__(^2/):G/,{_BBG/@-(#G@*G(B2/*+*}/]:+
{1$+S@]_1=4+1$`,-S*"2$~"}21D2$~
[S'-26*N]:Z[S'|:PS24*PN]:RR'(PS5*qi:XD=X0<-X2%2*+:Y[" ^ "_" > ""(O)"" - "__]=S8*Y[" ^ "" "" < ""(O)"" - "__]=S5*P')NRRXD=[SPS7*'oA*S7*PN]:QR?Y[[SPS5*'oSC*'oS5*PN]:T_R[SPS7*'oS8*'oS7*PN]RRR]=QY2=TR?RRZ
li4H#+2bW%32<2b
q~:R100:H*\d:T/i){R-H*HT-/m]}6*_H)<*
"JamesBdo,"YZ+/)BA*c+Y*Y%:BS@SB)))[JW:Z____)ci+*]U*
Bônus de ouro: pontuação anterior * 0.8
Pyth
Compararjdm@cd)._-FQcj"
is
equal greater less
to than
"Qb
Boneco de neve
M@GCHgc" ___
___
_"bhzgc" (_*_)
_===_
.....
/_\\"bhzs[g" \ "@z4\(g"-.oO"@z2g" ,._"@z1g"-.oO"@z3\)g" / "@z5)s[g" < /"@z4\(gc"
:
] [
> <"b@z6\)g" > \\"@z5)++" ("gc"
:
\" \"
___"bez\)
CJam
granderri:Hri:Vri:Q[q~]3/_Qa3*a+_|$W%:Pf{\a#}:AH/:B0ff*
P,,[AHAW%HBz:+_W%V\V]2/
ff{~@@f=/::|1#}0Ua4*t:R;
P0f<
V{H{BI=J=_2$=
0R{"I>! I+V<J>! J+H<"4/+4/z{~~}%:&1$*\)}%);2$-|t
}fJ}fI
[P,{_La#\1$0t1$f-}*;;]
{:TR=2/~\~V\-,>\f{\_3$=@~H\-,>{Tt}/t}~}/
:~Pf=:~
~]S*N
Boneco de neve
q:Q;SS"
_===_,___
....., _
/_\,___
(_*_)"',/0{Q=~(=}:G~N" \ "4G'(".oO-"_2G",._ "1G@3G')" / "5GN"< / "4G'(" : ] [> < "3/6G')"> \ "5GNS'(" : \" \"___ "3/7G')
Golfscript
Lorem IpsumLorem ipsum dolor sit amet, consectetur adipiscing elit. Cras imperdiet est ut sem commodo scelerisque. Sed ut ultricies enim. Nam eget lectus suscipit, gravida turpis a, volutpat tellus. Cras efficitur luctus neque, at semper massa condimentum at posuere.
Relógio digital
:*{32' _':$@'14'{?~!=}:&~32}%n*{:x' |':|\'1237'&$x'017'&|x'56'&}%n*{:x|\'134579'&$x'147'&|x'2'&}%
Feliz Aniversário
4,{"Happy Birthday "["To You""Dear GolfScript"]@2==n}%
Sequência farey
~:c[,{){.}c(*}%.c/zip{+}*]zip{~{.@\%.}do;1=},{~<},{~\10c?*\/}${'/'*}%', '*'F'c`+' = {0/1, '+\', 1/1}'