Su desafío es desarrollar un programa que imite un flujo de transmisión de datos. Su programa debe leer la entrada de stdin y enviarla directamente a stdout. Para hacer que el problema sea más interesante, la secuencia de salida es 'defectuosa' y debe cumplir varios requisitos:

1. Debería haber un 10% de posibilidades de que cada personaje se cambie +1 código ascii (por ejemplo, 'a' se convierte en 'b', '9' se convierte en ':'), etc.
2. La entrada y la salida solo deben cubrir valores ascii imprimibles ('!' A '~', decimal 33 a decimal 126, inclusive). Si el +1 aleatorio ocurre en un '~' (decimal 126), un '!' (decimal 33) se debe generar en su lugar.
3. Si tres caracteres se desplazan aleatoriamente en una fila, el programa debe mostrar "CÓDIGO DE ERROR 4625: ERROR INVERTIRABLE, CONTACTE CON SU ADMINISTRADOR DE SISTEMA" (línea posterior opcional) y detener la ejecución.

Para simplificar el problema, aquí hay algunos otros criterios:

1. Puede suponer que la entrada siempre será válida; es decir, solo contendrá valores '!' a través de '~'.
2. El programa debe continuar hasta que tres caracteres se desplacen aleatoriamente en una fila; es seguro asumir que EOF nunca ocurrirá.
3. La aleatoriedad debe diferir entre corridas; Si su generador de números aleatorios necesita ser sembrado para obtener un resultado único en cada ejecución, entonces su código debe ser inicializado.
4. Debe escribir un programa, no una función.
5. Debe tomar la entrada de stdin y escribir la salida en stdout.
6. No puede utilizar ninguna biblioteca o recurso externo.
7. Su código debe tener un intérprete o compilador disponible y que funcione libremente.

Aplican reglas estándar de código de golf. El ganador es quien tiene el programa más corto publicado dentro de dos semanas (jueves 20 de febrero de 2014).

Befunge-98, 166 159 156 155 148

Este mejora con respecto a la otra excelente respuesta Befunge con la probabilidad correcta (1/10) y es un poco más compacto:

~>?#v?1+\1>+\:'~1+-4k#x07_$'!>,:3-!#v_
>#?>>>\$\0^>
^<<
A"##  "CT YOUR SYSTEM ADMINISTRATOR"<@,kM'"ERROR CODE 4625: UNRECOVERABLE ERROR, PLEASE CONT

C, 168 caracteres

i;main(c){for(srand(&c);i++<3;putchar(rand()%10?i=0,c:c-126?c+1:33))c=getchar();
puts("ERROR CODE 4625: UNRECOVERABLE ERROR, PLEASE CONTACT YOUR SYSTEM ADMINISTRATOR");}

La siembra de esta solución del PRNG aprovecha el hecho de que los sistemas operativos modernos cambian la ubicación de la pila en la memoria en cada ejecución, como una medida básica contra las vulnerabilidades de destrucción de la pila.

Ruby, 156

e=3
putc(($_.ord-33+r=rand(10)/9)%94+33)/e=r>0?e-r :3while gets(1)rescue$><<'ERROR CODE 4625: UNRECOVERABLE ERROR, PLEASE CONTACT YOUR SYSTEM ADMINISTRATOR'

Lote - 359

Abierto a sugerencias para que sea completamente compatible con las reglas de desafío.

Trabajaré para hacerlo más pequeño / mejor: quería publicarlo mientras funciona, antes de romperlo.

@echo off&setLocal enableDelayedExpansion&for /L %%a in (33,1,126)do cmd/cexit %%a&set %%a=!=exitcodeAscii!
set a=%~1
:l
if defined a (
set c=!a:~0,1!&set a=!a:~1!&set b=0&set/ar=%RANDOM%*10/32768+1
if !r!==1 for /L %%b in (33,1,126)do (
if !b!==1 echo !%%b!>>f
if "!c!"=="!%%b!" set b=1
)
if !b!==1 set/pc=<f&del f
set o=%o%!c!&goto l
) 
echo %o%

Definitivamente hay bastantes maneras de jugar golf.

h:\uprof>UDS.bat "test ing"
tesu inh

h:\uprof>UDS.bat "test ing"
tfsu ing

Sin golf -

@echo off
setLocal enableDelayedExpansion
for /L %%a in (33,1,126) do (
    cmd /c exit %%a
    set %%a=!=exitcodeAscii!
)
set a=%~1
:l
if defined a (
    set c=!a:~0,1!
    set a=!a:~1!
    set b=0
    set /a r=%RANDOM%*10/32768+1
    if !r!==1 for /L %%b in (33,1,126) do (
        if !b!==1  echo !%%b!>>f
        if "!c!"=="!%%b!" set b=1
    )
    if !b!==1 set /p c=<f& del f
    set o=%o%!c!
    goto l
) 
echo %o%

Befunge-93 (206)

Tiene 142 caracteres que no son espacios en blanco. Técnicamente no es conforme, ya que tiene una probabilidad de 1/9 no 1/10 de error.

v$,_\1+:4-v
~> ^1:  <v_$$"ROTARTSINIMDA METSYS RUOY TCATNOC ESAELP ,RORRE ELBAREVOCERNU :5264 EDOC RORRE">:#,_@
 ^ < < < \
   1     "
 ^0?2^
   ^ 3  +"
> >?>?4^"-
   v 5  !"
 ^8?6> ^"^
   7    %"
   >   ^^<

Corre como cat /dev/urandom | tr -dc '!-~' | ./befungee.py -c 100 ../rand.

Con esta entrada !!!!aaaaaaa~~~~~~~~~~obtenemos la salida !"!!aabaaba~~~!~~~~!!que indica que los errores se manejan correctamente.

PHP 190

eso es lo más lejos que podría jugarlo, pero creo que es bastante bueno que esté a menos de 100 caracteres del líder

<? while($a=fread(STDIN,1)){if(!rand(0,9)){$a=$a=='~'?'!':chr(ord($a)+1);@$i+=1;$i>2&&die("ERROR CODE 4625: UNRECOVERABLE ERROR, PLEASE CONTACT YOUR SYSTEM ADMINISTRATOR");}else$i=0;echo$a;}

C # - 346 330 313 309 297 288 278 274

Un poco largo pero hace el trabajo.

using System;class m{static void Main(){int c=0;var r=new Random();while(c<3){int n=r.Next(10);var j=Console.In.Read();Console.Write((char)(n<1?j>'}'?'!':++j:j));c=n<1?c+1:0;}Console.Write("ERROR CODE 4625: UNRECOVERABLE ERROR, PLEASE CONTACT YOUR SYSTEM ADMINISTRATOR");}}

sh bash, en OSX, 211 , 208 , 203 , 200 , 196 , 185

IFS=
while read -n1 a;do
((RANDOM>3276))&&echo $a&&t=0||{
tr !-}~ \"-~!<<<$a
((t++==2))&&echo ERROR CODE 4625: UNRECOVERABLE ERROR, PLEASE CONTACT YOUR SYSTEM ADMINISTRATOR&&exit
}
done

Ligeramente mejor que el 10% ya que aleatorio generará números entre 0 y 32767, por lo que realmente es 3,277 en 32,768 probabilidades (10,0006%).

Gracias, @Gilles (pero no estoy seguro de lo que quieres decir con la reestructuración de tiempo. También tenía algunas otras ideas en la ducha.

C, 260 257 237 225 189 174

Mi primer golf, sugerencias apreciadas.

n;main(){for(srand(&n);n!=3;putchar((getchar()+(rand()%10==7?!!++n:(n=0))-33%94)+33));puts("ERROR CODE 4625: UNRECOVERABLE ERROR, PLEASE CONTACT YOUR SYSTEM ADMINISTRATOR");}

7 es muy aleatorio.

Compilar te dará advertencias.

Gracias por la ayuda de breadbox y Josh.