Brincando às charadas de magia negra:
Um comando perl que lê da STDIN e escreve OK se for tudo numerosnúmeros iguais
perl -E 'say "OK" if <> =~ /^(\d)\1*$/'
um algoritmo:
f(a) = int((a*9+10)/10) % 10**(int(log10 a)) == 0
Um comando perl que lê da STDIN e escreve OK se for tudo numeros iguais
Um comando perl que lê da STDIN e escreve OK se for tudo números iguais
f(a) = int((a*9+10)/10) % 10**(int(log10 a)) ≠== 0
f(a) = int((a*9+10)/10) % 10**(int(log10 a)) ≠ 0
Um comando perl que lê da STDIN e escreve OK se for tudo numeros iguaisBrincando às charadas de magia negra: