Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: Spiraling integers

by Elijah (Hermit)
on Aug 30, 2005 at 00:53 UTC ( #487617=note: print w/replies, xml ) Need Help??


in reply to Re: Spiraling integers
in thread Spiraling integers

Easy,

I made three simple changes.
First: start $cnt as $n*$n instead of 1.
Second: change while loop to continue until $cnt is not greater then 0.
Third: decrement $cnt everywhere it was incremented before.

#!/usr/bin/perl -w use strict; print "Enter n: "; chomp(my $n = <>); my @shiza; my $firstD = my $secondD = 0; my $cnt = $n*$n; my $inc = 1; while ($cnt > 0) { while (!$shiza[$firstD][$secondD] && $secondD < $n && $inc == 1) { $shiza[$firstD][$secondD] = $cnt; $secondD++ unless($shiza[$firstD][$secondD+1] || ($secondD+1) >= + $n); $cnt--; } $firstD++; while (!$shiza[$firstD][$secondD] && $firstD < $n && $inc == 1) { $shiza[$firstD][$secondD] = $cnt; $firstD++ unless($shiza[$firstD+1][$secondD] || ($firstD+1) >= $ +n); $cnt--; } $secondD--; $inc = 0; while (!$shiza[$firstD][$secondD] && $secondD >= 0 && $inc == 0) { $shiza[$firstD][$secondD] = $cnt; $secondD-- unless($shiza[$firstD][$secondD-1] || ($secondD-1) < +0); $cnt--; } $firstD--; while (!$shiza[$firstD][$secondD] && $firstD >= 0 && $inc == 0) { $shiza[$firstD][$secondD] = $cnt; $firstD-- unless($shiza[$firstD-1][$secondD] || ($firstD-1) < 0) +; $cnt--; } $secondD++; $inc = 1; } for (@shiza) { for (@{$_}) { print "$_\t" if($_); } print "\n"; }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2019-02-19 00:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I use postfix dereferencing ...









    Results (101 votes). Check out past polls.

    Notices?