Skip to main content
Fim da Recompensa com 100 pontos de reputação concedidos por Victor Stafusa
Acento
Fonte Link
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 numerosnúmeros iguais

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

  2. um algoritmo:

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

Brincando às charadas de magia negra:

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

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

  2. um algoritmo:

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

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

adicionou 5 caracteres ao conteúdo
Fonte Link
JJoao
  • 5,2mil
  • 17
  • 23

Brincando às charadas de magia negra:

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

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

  2. um algoritmo:

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

Brincando às charadas de magia negra:

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

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

  2. um algoritmo:

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

Brincando às charadas de magia negra:

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

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

  2. um algoritmo:

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

adicionou 99 caracteres ao conteúdo
Fonte Link
JJoao
  • 5,2mil
  • 17
  • 23

Um comando perl que lê da STDIN e escreve OK se for tudo numeros iguaisBrincando às charadas de magia negra:

perl -E 'say "OK" if <> =~ /^(\d)\1*$/'
  1. Um comando perl que lê da STDIN e escreve OK se for tudo numeros iguais

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

  2. 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

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

Brincando às charadas de magia negra:

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

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

  2. um algoritmo:

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

Fonte Link
JJoao
  • 5,2mil
  • 17
  • 23
Carregando