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