Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Re: spiraling quine: WIN2k

by Len (Friar)
on Jun 28, 2002 at 08:31 UTC ( #177964=note: print w/ replies, xml ) Need Help??


in reply to please delete
in thread spiraling quine

Tnx Olecam.

I've done some minor changes to the Windows code.

Putting the system("cls") just before the print gives a better flicker-free image.
And because system("cls") has more chr's than `clear` some frames (for example the 5th frame) are not self-replicating because the output code is incomplete. So I've decreased the radius of the spiral a bit so all the code fit's in it....

#!/usr/bin/perl $_=' $q= "\4 7" ;wh ile($;=$z+=.5 ){ %c =$r =0;$/="";while( 21+$ z> ( $; +=.05)) {$c{i nt $ _+ 26 +2*( $r+=. 0 1 9 )*s in $; }{1 - $_ +10+int$r*c os$; }=1 f or(0..1)}$t=re v e r s e; $/. =`cl s` ." #! /u sr /bi n/ pe rl \n\ $_=$q\n" ;f or $y (1. .20){ $c {$ _ } { $y }? $ /.= chop$ t:( $/ . ="\4 0")for( 0..53 ); $ /.=" \n"}system("cls ") ;p ri nt "$/$q;s ;". c h r(92) ."s; ; g; eva l\n" } ';s;\s;;g;eval


Comment on Re: Re: spiraling quine: WIN2k
Download Code
Re: Re: Re: spiraling quine: WIN2k
by Anonymous Monk on Mar 06, 2003 at 12:31 UTC
    The version for *nix kind of worked on Win32, if you screwed your eyes up. I was impressed with 'just' that.

    Having read on and found this (the Win32 version) - I'm blown away!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://177964]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (16)
As of 2014-08-29 15:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (281 votes), past polls