Aprofitant que estic de vacances, m'he dedicat a apendre un nou llenguatge de programació.
destaca per la seva simplicitat i especialment, per estar disenyat per orangutans(fins un nen petit podria apendre'n)
Es diu Ook. Se'n pot trobar més informació a la wikipedia.
Per iniciar la gent, recomano que es baixin l'interpret en perl. Si fa mandra instalar-lo només han de copiar el fitxer Ook.pm, amb aquest script ja tenim l'interpret (guardar-lo en un fitxer de nom ook):
#!/usr/bin/perl -ws
use strict;
require "Ook.pm";
my $Ook = Acme::Ook->new;
my $OOK = $Ook->compile(@ARGV);
eval $OOK;
exit(0);
dins del modul ja venen uns exemples, podeu provar:
>perl ook hello.ook
com a curiositat enganxo el codi perl generat en la precompilació de ook->perl.
$Ook++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;while($Ook[$Ook]){$Ook--;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook++;$Ook[$Ook]--;}$Ook--;print chr$Ook[$Ook];$Ook++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;while($Ook[$Ook]){$Ook--;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook++;$Ook[$Ook]--;}$Ook--;$Ook[$Ook]++;print chr$Ook[$Ook];$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;print chr$Ook[$Ook];print chr$Ook[$Ook];$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;print chr$Ook[$Ook];$Ook++;$Ook++;$Ook++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;while($Ook[$Ook]){$Ook--;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook++;$Ook[$Ook]--;}$Ook--;print chr$Ook[$Ook];$Ook++;$Ook++;$Ook++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;while($Ook[$Ook]){$Ook--;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;$Ook++;$Ook[$Ook]--;}$Ook--;$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;print chr$Ook[$Ook];$Ook--;$Ook--;$Ook--;$Ook--;print chr$Ook[$Ook];$Ook[$Ook]++;$Ook[$Ook]++;$Ook[$Ook]++;print chr$Ook[$Ook];$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;print chr$Ook[$Ook];$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;$Ook[$Ook]--;print chr$Ook[$Ook];$Ook++;$Ook++;$Ook[$Ook]++;print chr$Ook[$Ook];}
interessantissim!
pot ser molt util per la ofuscació de programes (vaja, l'única utilitat...)