Programa de una sola línea

Una sola línea de BASIC normalmente puede contener hasta 255 caracteres, y las líneas de código abarcaban desde juegos sencillos ^{[ 3 ]} hasta demostraciones gráficas. Una de las líneas de código de demostración más conocidas se conoce coloquialmente como 10PRINT , escrita para la Commodore 64 :

10 PRINT CHR$ ( 205.5 + RND ( 1 )); : GOTO 10

El siguiente ejemplo es un programa en C (un programa ganador en la categoría "Mejor programa de una sola línea" del IOCCC ).

main ( int c , char ** v ) { return ! m ( v [ 1 ], v [ 2 ]); } m ( char * s , char * t ) { return * t - 42 ? * s ? 63 == * t | * s == * t && m ( s + 1 , t + 1 ) : ! * t : m ( s , t + 1 ) || * s && m ( s + 1 , t ); }

Este programa de una sola línea es un comparador de patrones glob. Entiende los caracteres glob *, que significa cero o más caracteres, y ?, que significa exactamente un carácter, al igual que la mayoría de los shells de Unix .

Ejecútalo con dos argumentos: la cadena y el patrón glob. El estado de salida es 0 (shell true) cuando el patrón coincide, y 1 en caso contrario. El patrón glob debe coincidir con toda la cadena, por lo que es recomendable usar * al principio y al final del patrón si buscas algo en el medio. Ejemplos:

$ ./a.out foo 'f??' ; echo $? $ ./a.out 'mejor programa corto' '??stop?*' ; echo $?

El libro " El lenguaje de programación AWK" contiene 20 ejemplos de comandos de una sola línea al final del primer capítulo.

Aquí están los primeros de ellos:

1. Imprime el número total de líneas de entrada (como wc -l ):

   FIN { imprimir NR }

2. Imprime la décima línea de entrada:

   NR == 10

3. Imprime el último campo de cada línea de entrada:

   { imprimir $ NF }

Aquí hay ejemplos en J :

• Una función llamada avg que devuelve el promedio de una lista de números:

  promedio =: +/ % #

• Ordenación rápida :

  clasificación rápida =: (( $:@ ( <#[ ) , ( =#[ ) , $:@ ( >#[ )) ( {~ ?@# )) ^: ( 1 <# )

Aquí hay ejemplos en el lenguaje de programación Perl :

• Busque palabras duplicadas

perl -0777 -ne ' 'print"$.: doubled $_\n"while/\b(\w+)\b\s+\b\1\b/gi

• Encuentra palíndromos en /usr/dict/words

perl -lne ' ' /usr/dict/wordsprintif$_eqreverse

• edición in situ de archivos *.c cambiando todos los foo a bar

perl -p -i.bak -e ' s/\bfoo\b/bar/g' *.c

Muchas líneas de código son prácticas. Por ejemplo, la siguiente línea de código Perl invertirá todos los bytes de un archivo:

perl -0777e 'imprimir escalar inverso <>' nombre de archivo 

Si bien la mayoría de las líneas de código Perl son imperativas, la compatibilidad de Perl con funciones anónimas, cierres, mapeo, filtrado ( grep ) y plegado (List::Util::reduce) permite la creación de líneas de código "funcionales".

Esta línea de código crea una función que se puede utilizar para devolver una lista de números primos hasta el valor del primer parámetro:

mi $z = sub { grep { $a = $_ ; ! grep { ! ( $a % $ _ ) } ( 2 .. $_ - 1 )} ( 2 .. $_ [ 0 ]) }

Se puede usar en la línea de comandos, así:

perl -e' ' número$,=",";printsub{grep{$a=$_;!grep{!($a%$_)}(2..$_-1)}(2..$_[0])}->(shift)

para imprimir una lista de números primos separados por comas en el rango 2 - número.

El siguiente programa Haskell es de una sola línea: ordena sus líneas de entrada ASCIIbetically .

main = ( mapM_ putStrLn . Data . List . sort . lines ) =<< getContents -- En ghci, un nombre calificado como Data.List.sort funcionará, aunque como ejecutable independiente necesitarías importar Data.List.

Una versión aún más corta:

principal = interactuar ( líneas no lineales . Datos . Lista . ordenar . líneas ) -- Ídem.

Se puede usar en la línea de comandos de la siguiente manera:

cat nombre_archivo | ghc -e "interactuar (unlines . Data.List.sort . líneas)"

El siguiente programa Racket es equivalente al ejemplo Haskell anterior:

#lang racket ( para cada displayln ( ordenar ( puerto->líneas ) cadena<? ))

y esto se puede usar en la línea de comandos de la siguiente manera:

raqueta -e ' '(for-eachdisplayln(sort(port->lines)string<?))

Se pueden ejecutar comandos de una sola línea directamente en la línea de comandos de Unix utilizando la opción -cmd de Python (o -c), y normalmente requiere la importación de uno o más módulos. Las instrucciones se separan con ";" en lugar de saltos de línea. Por ejemplo, para imprimir el último campo de una lista larga de Unix:

ls -l | python -c " "importsys;[sys.stdout.write(' '.join([line.split(' ')[-1]]))forlineinsys.stdin]

ls -l | pyp "whitespace[-1]" # "whitespace" representa cada línea dividida por espacios en blanco en pyp ls -l | pyline "words[-1]" # "words" representa cada línea dividida por espacios en blanco en pyline

$ python -m CGIHTTPServer Sirviendo HTTP en 0.0.0.0 puerto 8000 …

Tcl (Tool Command Language) es un lenguaje de programación/scripting dinámico basado en conceptos de Lisp, C y shells de Unix. Puede utilizarse de forma interactiva o ejecutando scripts (programas) que pueden usar un sistema de paquetes para su estructuración. ^{[ 4 ]}

Muchas cadenas de caracteres también son listas bien formadas. Cada palabra simple es una lista de longitud uno, y los elementos de las listas más largas están separados por espacios en blanco. Por ejemplo, una cadena que corresponde a una lista de tres elementos:

ejemplo de conjunto { foo bar grill }

Las cadenas con comillas o llaves desequilibradas, o con caracteres distintos de espacios que siguen directamente a las llaves de cierre, no se pueden analizar directamente como listas. Para crear una lista, puede dividirlas explícitamente.

El "constructor" para listas se llama, por supuesto, `list`. Se recomienda usarlo cuando los elementos provienen de la sustitución de variables o comandos (las llaves no funcionan así). Como los comandos de Tcl son listas, lo siguiente es un sustituto completo del comando `list`:

proc list args {set args }

Cómo encontrar palíndromos en el archivo words.txt

Obtener-Contenido palabras . txt | Donde { $_ -eq -join $_ [( $_ . length - 1 ).. 0 ] }

La semántica de canalización en PowerShell permite crear escenarios complejos con programas de una sola línea. Este script de PowerShell de una sola línea toma una lista de nombres y recuentos de un archivo de valores separados por comas y devuelve la suma de los recuentos de cada nombre.

ipcsv .\ fruit . txt – H F , C | Grupo F |%{@{ " $( $_ . Nombre ) " =( $_ . Grupo | medida C - suma ). Suma }}| valor de ordenación