Script för att skapa listor

import Char

list = map (\x -> [x]) $ (concat $ map (\x -> (x : [toUpper x])) ['a'..'z']) ++ map intToDigit [1..9]

makeList :: [String]
makeList = makeList' list list
  where
    makeList' xs ys = (makeList'' xs ys ys) ++ makeList' xs (makeList'' xs ys ys)
    makeList'' [] _ _ = []
    makeList'' (x:xs) [] rs     =  makeList'' xs rs rs
    makeList'' (x:xs) (y:ys) rs =  [x ++ y] ++ makeList'' (x:xs) ys rs

#!/usr/bin/perl

sub printchar {
    my $c = shift;
    printf("%c", $c < 26 ? 65 + $c : $c < 26 * 2 ? $c - 25 + 96 : $c - 26 * 2 + 48) unless ($c == -1);
}

sub printlastchar {
    my $c = shift;
    printf("%c", $c < 26 ? 65 + $c : $c < 26 * 2 ? $c - 25 + 96 : $c - 26 * 2 + 48);
    print "\n";
}

$iterate = $ARGV[0]-2;
$ev .= "for \$i$_ (-1..61) {" for (0..$iterate);
$ev .= "for \$i".++$iterate." (0..61) {";
$ev .= "printchar(\$i$_); " for (0..--$iterate);
$ev .= "printlastchar(\$i".++$iterate.");";
$ev .= "}" x ++$iterate;

eval $ev;

#!/usr/bin/mira -exp
lay list

list :: [[char]]
list = [a++[b] | a<-[[c] | c<-x]++list ; b<-x]
       where
       x = "aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0123456789"

#!/usr/bin/perl
@list = qw/a b c d e f g h i j k l m n o p q r s t u v w x y z å ä ö A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Å Ä Ö 0 1 2 3 4 5 6 7 8 9/;
sub printchar {
    $c = shift;
    print $list[$c];
}

sub printlastchar {
    $c = shift;
    print "$list[$c]\n";
}

$iterate = $ARGV[0]-2;
$ev .= "for \$i$_ (-1..67) {" for (0..$iterate);
$ev .= "for \$i".++$iterate." (0..67) {";
$ev .= "printchar(\$i$_); " for (0..--$iterate);
$ev .= "printlastchar(\$i".++$iterate.");";
$ev .= "}" x ++$iterate;


print "$ev\n";
eval $ev;