Mindenféle bevezető nélkül:
Vagyis ha ábrázoljuk ezt a függvényt egyenlőtlenséget a megadott értékek közt, akkor pontosan saját magát fogja kirajzolni, ennek a képe a pixeles ábra fenn. (Szerintem egyébként úgy működik, hogy ez a bazi nagy szám “tárolja” el a pixel információkat, amit a függvény csak ügyesen “kiszed” és felrajzol. Ebben az értelemben bármilyen egyszerűbb szöveget ki lehet rajzoltatni vele, ha “n” értéket megfelelő módon választjuk meg.)
Eredetileg a Wolfram Mathworld-ön jelent meg ebben a formában, én Zsoltika blogján akadtam rá. Megpróbáltam persze lefuttatni a függvényt a Mathematica player segítségével, de nem tudtam elindítani az ábrázolást. Help meg nem volt hozzá, nem tudja valaki, hogyan kell megcsinálni?
update: JavaScript implementáció erre.
(OMG, híres lettem
)
Itt megtalálható javascriptben implementálva is: http://web.aanet.com.au/superseed/ajmcrae/TupperPlot/TupperPlot.html
És még lehet az is, hogy azért nem lehet lejátszani az .nb-t, mert a gyík szerint:
Itt van az ábrázolás .js-ben.
http://web.aanet.com.au/superseed/ajmcrae/TupperPlot/TupperPlot.html
ez ugrott be:
main(t,_,a)
char *a;
{return!0<t?t<3?main(-79,-13,a+main(-87,1-_,
main(-86, 0, a+1 )+a)):1,t<_?main(t+1, _, a ):3,main ( -94, -27+t, a
)&&t == 2 ?_<13 ?main ( 2, _+1, "%s %d %d\n" ):9:16:t<0?t<-72?main(_,
t,"@n'+,#'/*{}w+/w#cdnr/+,{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l,+,/n{n+\
,/+#n+,/#;#q#n+,/+k#;*+,/'r :'d*'3,}{w+K w'K:'+}e#';dq#'l q#'+d'K#!/\
+k#;q#'r}eKK#}w'r}eKK{nl]'/#;#q#n'){)#}w'){){nl]'/+#n';d}rw' i;# ){n\
l]!/n{n#'; r{#w'r nc{nl]'/#{l,+'K {rw' iK{;[{nl]'/w#q#\
n'wk nw' iwk{KK{nl]!/w{%'l##w#' i; :{nl]'/*{q#'ld;r'}{nlwb!/*de}'c \
;;{nl'-{}rw]'/+,}##'*}#nc,',#nw]'/+kd'+e}+;\
#'rdq#w! nr'/ ') }+}{rl#'{n' ')# }'+}##(!!/")
:t<-50?_==*a ?putchar(a[31]):main(-65,_,a+1):main((*a == '/')+t,_,a\
+1 ):0<t?main ( 2, 2 , "%s"):*a=='/'||main(0,main(-61,*a, "!ek;dc \
i@bK'(q)-[w]*%n+r3#l,{}:\nuwloca-O;m .vpbks,fxntdCeghiry"),a+1);}
Nekem meg ez, még ha nem teljesen releváns is, de valahogy mégis az:
http://search.cpan.org/~asavige/Acme-EyeDrops-1.55/lib/Acme/EyeDrops.pm#A_Somersaulting_Camel
Camel nagyon durva!
rog cucca egyébként egy 1988-as “compó” győztese: “Although unintelligible at first glance, it is a legal C program that when compiled and run will generate the 12 verses of The 12 Days of Christmas.”
találtam egy ilyent is:
)
http://udel.edu/~mm/xmas/
(nem is tudom melyikük a közveszélyesebb, az aki az eredetit írta, vagy az aki aztán visszafejtette..
Igen a Camel is nagyon durva, de az igaz felette nem sokkal Larry Wall az’szem a History of Perl 6 résznél… és hát obfuscated kódnál kevés relevánsabb nyelv van a perl-nél
A camel hogy működik?
Nem fut, hm:
jozsimbp:~/Desktop angelday$ perl gencamel.pl
Can’t find string terminator “END_SRC_STR” anywhere before EOF at gencamel.pl line 7.
nem akarok kötöszködni, de mintha nem függvény hanem egyenlőtlenség lenne a fenti formula
Igen, ez valóban pongyolaság, javítottam is!
Az utolsó sorban nincs véletlen szóköz az END_SRC_STR előtt?
De volt, kitöröltem, de úgy is ugyanaz.
Aha, ezzel már közelebb jutottam!
http://screencast.com/t/YTVlNWZl
Hiba: Undefined subroutine &main::sightly called at gencamel.pl line 1.
Másrészt:
$ cpan Acme::EyeDrops
…
$ cat >hello.pl < cnv.pl < ‘camel’,
SourceFile => ‘hello.pl’,
Regex => 1 } );
EOF
$ perl cnv.pl
… (vicces teve)
$ perl cnv.pl > tmp.pl
$ perl tmp.pl
helló józsi
Most miért nem lehet a hülye kisebb nagyobb jeleket normálisan értelmezzni prék között?!
Szóval végigcsináltam http://search.cpan.org/~asavige/Acme-EyeDrops-1.55/lib/Acme/EyeDrops.pm#Getting_Started -et (előtte persze cpan install), és ment.
De a gencamel is menni fog, ha ez az első sor:
use Acme::EyeDrops qw(sightly);
Előző komment törölhető…
Tevém már van!
http://screencast.com/t/YzE4MGMwMm
Vacak ez az OSX: http://sial.org/howto/perl/life-with-cpan/macosx/
Ezen a ponton feladtam.
bezzeg Linuxon hiba nélkül fut!
http://www.itrs.net
Nem értem, mi a bajotok a Mmaval.
Letöltöttem az nb-t, futtattam Mathematicával, szépséges.
Persze, a MmaPlayernek .nbp kell.
J