#!/usr/bin/perl -l

#                                                          ppg256-7.pl
# Perl Poetry Generator in 256 Characters, Number 7
# Nick Montfort nickm@nickm.com
#====================================================================#
#
# This is a Perl program that will run on Mac and Linux on the command
# line and which is 256 characters long:
#
# perl -le '$_="a literal_a0a special01n array_1 hash";s/0/ variable_/g;s/1/an element of a/g;@_=split/_/;$;=concatenat;for(1..4){$a="\tSometimes he assigned to @_[$_]";for$i(0..4){$a.=" $_[$i], or",map{$a.=" $_[$i] $;ed with $_, or"}@_}print"$a some longer $;ion.\n"}' | more
#
# Piping the output to "more" is recommended but not essential.
#
# This program is provided here in a file for your convenience.
#
# On Windows, install ActivePerl to be able to run this program.
# To run, change to the directory where this file is located and type
# at the command prompt:
#
# perl -l ppg256-7.pl

$_="a literal_a0a special01n array_1 hash";s/0/ variable_/g;s/1/an element of a/g;@_=split/_/;$;=concatenat;for(1..4){$a="\tSometimes he assigned to @_[$_]";for$i(0..4){$a.=" $_[$i], or",map{$a.=" $_[$i] $;ed with $_, or"}@_}print"$a some longer $;ion.\n"}
