Skip to main content
4 de 4
Acento
Victor Stafusa
  • 64,9mil
  • 9
  • 120
  • 189

Brincando às charadas de magia negra:

  1. Um comando perl que lê da STDIN e escreve OK se for tudo números iguais

    perl -E 'say "OK" if <> =~ /^(\d)\1*$/'

  2. um algoritmo:

    f(a) = int((a*9+10)/10) % 10**(int(log10 a)) == 0

JJoao
  • 5,2mil
  • 17
  • 23