Nesta tarefa, você pode criar um programa útil para fazer qualquer coisa que possa escrever com 100 caracteres. Você tem permissão para usar menos caracteres, mas não mais.

Regras, apenas para se proteger de brechas comuns que não são mais engraçadas:

1. Seu programa não pode acessar a Internet, a menos que seja realmente necessário. Por exemplo, o programa que mostra a pergunta mais votada neste site pode usar a Internet para verificar essa pergunta. No entanto, não é permitido navegar na Internet para encontrar sua fonte real e executá-la.

2. Seu programa não pode ser um intérprete para o idioma em que foi escrito. No entanto, o intérprete Brainfuck em um idioma não-Brainfuck seria bom.

3. Seu programa não pode executar programas externos que fazem exatamente o que o seu programa faz. Por exemplo, você não pode executar vime afirmar que seu programa é vimimplementação.

4. Seu programa não pode ser perigoso para o computador em que está sendo executado e para outros computadores. Você não tem permissão para escrever programas como rmdir /(o exemplo aqui intencionalmente não funciona, não o conserte) e afirma que é um programa útil para remover todos os arquivos no computador.

5. Seu programa pode ser tão lento quanto você deseja e usar tantos recursos quanto você quiser, desde que você possa provar que faz o que deveria.

6. Você não tem permissão para criar um idioma específico para esta tarefa. No entanto, você tem permissão para criar intérpretes para a sua linguagem inventada em alguma outra linguagem de programação.

C - 47 bytes

O programa a seguir gera todos os documentos já escritos na história da humanidade, juntamente com todos os documentos que serão escritos e vários textos interessantes que nenhum ser humano jamais apresentou (junto com um "pedacinho" de lixo entre eles). Apenas dê um tempo. Além disso, toda vez que você executá-lo, ele produzirá textos diferentes primeiro! Se isso não for útil! (E tudo isso dentro da metade do limite de caracteres!)

main(){srand(time(0));while(1)putchar(rand());}

Se você não se importa com a saída de algo a cada vez, precisa apenas de 41 bytes !

main(){srand(0);while(1)putchar(rand());}

Não é bem compatível com o C99, mas compila sem problemas gcc.exe (GCC) 4.7.0 20111220.

O estado das regras

Seu programa pode ser tão lento quanto você deseja e usar tantos recursos quanto você quiser, desde que você possa provar que faz o que deveria.

Sem problemas.

Algumas coisas, este programa produzirá:

• uma solução para todos os problemas do milênio
• artigos de jornal de amanhã
• os trabalhos completos de Shakespeare (é claro)
• seu segredo mais sombrio
• todas as outras respostas a esta pergunta

Na verdade não, porque (como o ás mencionado corretamente no comentário), rand () é apenas um gerador pseudo-aleatório, que será contornado em algum momento - provavelmente muito cedo para produzir muitos textos significativos. Mas duvido que obter dados de um gerador de números aleatórios verdadeiro (hardware) seja remotamente possível dentro de 100 caracteres. Vou deixar isso aqui por diversão, no entanto.

Como observa Dennis, a aleatoriedade do algoritmo pode ser um pouco melhorada (dentro do limite de caracteres), usando em rand()^rand()>>16vez de rand().

BBC BASIC, 84 caracteres

MODE 6:INPUT T,A,B,A$,B$:FOR X=0 TO 1279:A=A+EVAL(A$):B=B+EVAL(B$):DRAW X,A+500:NEXT

Traça as soluções para equações diferenciais de primeira e segunda ordem.

Toma como entrada do usuário:

Title (does nothing)
Start value for A (plotted value)
Start value for B (not plotted)
Expression for dA/dX
Expression for dB/dX

Inspirado por um software de solução de equações diferenciais chamado Polymath, que eu usei quando estudava para ser um engenheiro químico. Introduziríamos diferentes equações para reagentes e produtos e veríamos como todo o sistema de reação mudou ao longo do tempo. Um software muito simples (não muito mais complexo que isso), mas muito mais conveniente para esse propósito que o Excel. Infelizmente, não posso fazer um clone completo do Polymath em 100 caracteres.

Mathematica 76

Este programa constrói um applet que exibe informações sobre várias propriedades de qualquer um dos 240 países. Ele abre com informações sobre a população adulta do Afeganistão. O usuário pode alterar as configurações de país e propriedade por meio de listas suspensas.

O Mathematica interopera sem problemas com o WolframAlpha.
Por esse motivo, acredito que o envio atenda ao requisito nº 1 do desafio: "Seu programa não pode acessar a Internet, a menos que seja realmente necessário ".

Este miniaplicativo bastante modesto simplesmente faz uso da funcionalidade existente na linguagem Mathematica. Um pequeno vídeo fornece algumas informações adicionais sobre o applet.

d = CountryData; Manipulate[WolframAlpha[p <> " " <> c], {p, d["Properties"]}, {c, d[]}]

Abaixo está uma lista das 20 primeiras (de 223) propriedades relacionadas a países. Com uma programação adicional, é possível obter informações adicionais sobre os países e analisar essas informações no Mathematica.

CountryData["Properties"][[;; 20]]

{"AdultPopulation", "AgriculturalProducts", "AgriculturalValueAdded", "Aerports", "AlternateNames", "AlternateStandardNames", "AMRadioStations", "AnnualBirths", "AnnualDeaths", "AnnualHIVAIDSDeaths", "ArableLandArea", "ArableLandFraction" Área "," BirthRateFraction "," BorderingCountries "," BordersLengths "," BoundaryLength "," CallingCode "," CapitalCity "," CapitalLocation "}

bash, 100 bytes

head -c${1--1} /dev/zero |
openssl enc -aes-128-ctr -pass file:/dev/random 2>/dev/null |
tail -c+17

Este script imprime um fluxo de bytes criptograficamente seguro. É necessário um argumento opcional que especifica o número de bytes que deve ser impresso. Por padrão, a saída será infinita.

Útil nos casos em que a leitura /dev/urandomé muito lenta.

Referência

$ time head -c 1G /dev/urandom > /dev/null
Real    59.75
User    0.03
Sys     59.68
$ time random 1G > /dev/null
Real    0.68
User    0.64
Sys     0.86

Este script gera até 1,5 GiB por segundo no meu i7-3770.

Por outro lado, a leitura de /dev/urandomconsegue gerar apenas 1 GiB por minuto .

Como funciona

• head -c${1--1} /dev/zerogera a quantidade especificada de zero bytes. Se nenhuma quantidade for especificada, será ${1--1}igual a -1 e o cabeçote emitirá uma quantidade infinita.

• openssl enc -aes-128-ctr -pass file:/dev/randomusa o AES-128 no modo contador para criptografar os zero bytes, lendo a senha em /dev/random.

• tail -c+17 se livra do cabeçalho de 16 bytes da saída.

Javascript

Resolva qualquer equação (bem, não todas, mas deve funcionar com funções comuns ...)

r=s=>{for(x=e=a=1e-7;a;x-=e*a/(eval(s.replace(/x/g,x+e))-a))a=eval(s.replace(/x/g,x));return x}

Sem ES6 (105 caracteres):

function r(s){for(x=e=a=1e-7;a;x-=e*a/(eval(s.replace(/x/g,x+e))-a))a=eval(s.replace(/x/g,x));return x}

Apenas dê o lado esquerdo da equação assumindo que o lado direito seja zero.

Exemplo:

• r("x*x-9") retorna 3
• r("Math.sin(x)-1")retornos 1.5707963394347828(pi / 2)
• r("Math.pow(2,x)-512") retorna 9

Aviso: pode divergir em algumas funções (ou se não houver solução) e congelar a guia do navegador ou retornar o NaN.

C - 99 caracteres

i;main(int c,char**a){for(a+=2;1+(c=getchar());)putchar(c+(**(a-1)-69?1:-1)**(*a+i++%strlen(*a)));}

Este programa permite criptografia e descriptografia de qualquer tipo de dados.

Uso

Primeiro ... compile-o!

gcc crypto.c crypto

Se você deseja criptografar o conteúdo mypreciousdata.txtcom a chave mysecretkeye armazene o resultado em myprotecteddata.txt:

cat mypreciousdata.txt | ./crypto E mysecretkey > myprotecteddata.txt

Agora, se você deseja recuperar o conteúdo decodificado de myprotecteddata.txt:

cat myprotecteddata.txt | ./crypto D mysecretkey > mypreciousdata.txt

Quanto mais longa a chave, mais segura!

Explicação

Encontre o código expandido e comentado abaixo:

int main(int argc, char** argv)
{   
    // retrieve the first argument passed to the program (action)
    char action = argv[1][0];

    // retrieve the second argument passed to the program (key)
    char* key = argv[2];

    // initialize character position in the key
    int i = 0;

    // initialize the current input character
    char c = 0;

    // loop until we reach the end of input
    while (c != -1){
        // get a character from stdin
        c = getchar();
        if (action == 'E'){
            // encode the current character
            putchar(c + key[i]);
        } else{
            // decode the current character
            putchar(c - key[i]);
        }
        // increment the position in the key, without overflow
        i = (i + 1) % strlen(key);
    }
}

GolfScript

Consegui espremer isso em exatamente 100 caracteres!

{{}/]{97-}%}:b~:|;"etaoinshrdlcumwfgypbvkjxqz"b:f,:&,{:x[|{&x-+&%f?}%{+}*\]}%$0=1=:x|{&x-+&%97+}%''+

Ele recebe a entrada de texto criptografado ROT-n e gera o texto decodificado. (Tirada daqui .) Por exemplo, quando recebida a entrada pmttwxmwxtmwnxzwoziuuqvoxchhtmakwlmowtnabiksmfkpivom, a saída é 8hellopeopleofprogrammingpuzzlescodegolfstackexchange.

Javascript

Math.random().toString(30).slice(2);

Produz algo como: 'h9d2f4aniimma7h1d3pbffi0foi8d3mf'

cadeias de 30 a 32 caracteres alfanuméricos

Math.random().toString(36).slice(2)

Produz algo como: 'uq2sze67hsacq5mi'

Cordas de comprimento 14-16.

C ++ 57

#include<iostream>
#include<conio.h>
int main(){std::cout<<getch();}  

Este programa recebe uma entrada de caractere e gera seu valor ASCII.

Fortran - 85 bytes

l=0;read(*,*)n;do while(n>0);i=mod(n,10);l=l+i;n=n/10;enddo;print*,"digit sum=",l;end

Lê um número e imprime a soma dos dígitos . Útil para problemas do Project Euler .