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