matrix japh

Discussion in 'Perl Misc' started by robin, May 24, 2005.

  1. robin

    robin Guest

    #!/usr/bin/perl
    use strict;
    calc ();
    sub calc {
    my $count=39;
    my $count2=1;
    while ()

    {
    print $count . "*" x $count, $count2;
    print "*" x $count2;
    print "\n";
    $count--;
    $count2++;
    last if $count == 0 and print "Just Another Perl
    Hacker\n";
    }
    }
    robin, May 24, 2005
    #1
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Lawrence D'Oliveiro

    JAPH

    Lawrence D'Oliveiro, Nov 12, 2005, in forum: Python
    Replies:
    2
    Views:
    449
    Michael
    Nov 13, 2005
  2. Bryan Castillo

    my first japh

    Bryan Castillo, Jul 7, 2003, in forum: Perl Misc
    Replies:
    1
    Views:
    121
    Bryan Castillo
    Jul 8, 2003
  3. Pedro Graca

    newbie 4th JaPH

    Pedro Graca, Nov 7, 2003, in forum: Perl Misc
    Replies:
    8
    Views:
    88
    Pedro Graca
    Nov 11, 2003
  4. Thomas Kratz

    comments on JAPH?

    Thomas Kratz, Nov 17, 2003, in forum: Perl Misc
    Replies:
    12
    Views:
    168
    Thomas Kratz
    Nov 24, 2003
  5. please # japh

    , Jan 13, 2005, in forum: Perl Misc
    Replies:
    1
    Views:
    88
Loading...

Share This Page