#!/usr/bin/perl -w use strict; my @a = qw(j a p h); my ($n,$s,$t) = ("\n"," ","\t"); fo +r (my $x=0; $x<=10; $x++) { print $s x5,$a[0]x$x; print $s x5,$a[1]x$ +x; print $s x5,$a[2]x$x; if ($x <= 6) { if ($x == 1) { print $a[2]x9; + } elsif ($x == 6) { print $a[2]x9; } else{ print $s x5,$a[2]x$x; } } + if ($x == 6) { print $s x6,$a[3]x$x; } elsif ($x > 6) { print $s x14 +,$a[3]x$x; } else { print $s x5,$a[3]x$x; } print $s x9,$a[3]x$x; pri +nt $n; } my $w=13; for (my $x=0; $x<=3; $x++) { print $s x$x,$a[0]x +$w; print $s x6,$a[1]x3; if ($x == 1) { print $a[1]x9; } else { print + $s,$s,$s x3,$a[1]x3; } print $s x6,$a[2]x8; print $s x13,$a[3]x12; i +f ($x == 1) { print $a[3]x18; } else { print $s x7,$a[3]x12; } print +$n; $w-=3; }
|
---|
Replies are listed 'Best First'. | |
---|---|
( off topic ) Re: boku no ichiban JAPH (#1 JAPH)
by lestrrat (Deacon) on Sep 01, 2001 at 11:48 UTC | |
by Hanamaki (Chaplain) on Sep 01, 2001 at 21:16 UTC | |
by bladx (Chaplain) on Sep 02, 2001 at 03:12 UTC | |
by bladx (Chaplain) on Mar 19, 2007 at 06:24 UTC | |
Re: boku no ichiban JAPH (#1 JAPH)
by bladx (Chaplain) on Sep 01, 2001 at 08:10 UTC | |
by ChemBoy (Priest) on Sep 01, 2001 at 10:43 UTC |