स्व-प्रजनन कोड।

यहाँ एक ऐसा मनोरंजक कोड है जो नेट पर पकड़ा गया है।

कार्यक्रम अपने स्वयं के कोड से मिलकर एक कताई सर्पिल खींचता है।

लचीलेपन perl'a कार्रवाई में तो बात करने के लिए)

 #! / usr / बिन / पर्ल
 $ _ = '
          $ q = "\ 47";  क
         ile ($; =
       $ z + = .5) "
     % c = $ r = 0; $ / = ""; व्हि ले (2)
    0+ $ z> ($; + =। 05)) {$ c {int $ _ + 2
   6+ 2 * ($ r + = .0 2) *
  $ में है;} {1 - $ _
 +1 0+ int $ r * cos
 $;} = 1for (0. .1)} $
 t = r ever se; $ /।  = `
 c ले ar `।  "#!
 / usr / bi n / pe
 rl \ n \ $ _ = $ q \ n ";
 $ r $ (1..20) {$ c {$ _} {
 $ y}  $ /।
  ($ /। = "\ 4
  0 ") के लिए (0 .53);
    $ /।  = "\ n"} pri nt "$ / $ q;
    एस;  "। chr (9 2)" s ;; g; eval \ n "}

 's; \ s ;; g; eval

स्रोत