Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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

Replies are listed 'Best First'.
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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://177964]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2018-06-23 07:02 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.