/prog/ - Am I doin it rite?

Name: Anonymous 2007-03-08 16:11 ID:ko8I8fKq



#!/usr/local/bin/python

inc=0

length=int(raw_input("How long is looooooongcat?\n"))

print "    ^_____^            \n"

print "   /       \           \n"

print "  |  #    # |          \n"

print "  \     @   |          \n"

print "   \   _|_ /           \n"

print "   /       \________   \n"

print "  / ________  ___   \  \n"

print "  | ________   \ \__/  \n"

print "   |        \__/       \n"

while inc<length:

    print "    |        |        \n"

    inc=inc+1

print "   /          \        \n"

print "  /   ______   \       \n"

print "  |  /      \  |       \n"

print "  | |        | |       \n"

print " /  |        |  \      \n"

print " \__/        \__/      \n"

Name: Anonymous 2007-03-16 11:54 ID:E/O+EdDc

>>56
NEEDS LESS FAILURE!

#!/usr/bin/perl

print 'How long is longcat?: ';

chomp($length_of_longcat = <STDIN>);

print '   ^_______^                    ' . "\n";

print '  /         \                ' . "\n";

print ' |   #    #  |                ' . "\n";

print ' \      @    |                ' . "\n";

print '  \    _|_  /                ' . "\n";

print '  /         \____________    ' . "\n";

print ' /  _____________ ____    \    ' . "\n";

print ' |  ___________    \  \___/    ' . "\n";

print '  |            \___/         ' . "\n";

print "  |           |              \n" x $length_of_longcat;

print '  /            \             ' . "\n";

print ' /   ________   \            ' . "\n";

print ' |  /        \   |           ' . "\n";

print ' |  |         |  |           ' . "\n";

print '/   |         |   \          ' . "\n";

print '\___/         \___/          ' . "\n";

Am I doin it rite?

1 Name: Anonymous 2007-03-08 16:11 ID:ko8I8fKq

59 Name: Anonymous 2007-03-16 11:54 ID:E/O+EdDc

Name: Anonymous 2007-03-08 16:11 ID:ko8I8fKq

Name: Anonymous 2007-03-16 11:54 ID:E/O+EdDc