This is my 2nd JAPH (see my
first). Next time I think I'll shoot for something much smaller.
I thought it'd be interesting to write one that consisted entirely of genetic code. Only one "normal" digit was used. Can anyone tell me where it was used and how I could have prevented it?
This is better viewed on an 80-column editor.
#!/usr/bin/perl -w
use strict;
# JADNA emerging from the gene pool...
$_=q=GCGCAT=;my$AT=m++; my$CG=$AT-$AT+$AT;my$TG=$CG
+$AT- $CG;my $CAGC=$AT- $CG+$CG+ $AT- $C
+G
+$AT- $CG-$CG;my$CAGTC=q;;;my%CTACG= ('
+C',
$AT+ $CG+$TG-$AT-$CG +$CG-$TG,'A'
+,$CG
-$AT +$CG-$AT-$TG-$CG+$AT-$CG+$TG+$CG,'T',$AT+
+ $TG-
$CG+ $TG+ $AT-$CG +$AT- $TG-$CG+
+ $AT
+$CG, 'G',$CG-$AT-$TG-$CG+$AT+$TG+$TG+$CG- $AT+
+ $CG);
my $GCA= $CTACG {'
+T'}**
$CTACG{'G'}+$CG;my$CTG =$GCA*$GCA;my $GGC=$GCA /(
+$AT
+$AT);open(CGGCTA,$0);while(my $CTGCAC=<CGGCTA>) {if($CTG
+CAC
=~m#(q()(q))#){$CAGC=$AT+$AT-$CG} if($CAGC){my($CGTC)=($CTGCAC
=~m#^\s*([ACGT])#); if($CGTC) {$CAGTC .=$CGTC}}
}close (CGGCTA); my @CGC=($G
+CA,
($CTG- ($GCA+$GCA+$GGC+$TG)), ($
+CTG+
$GCA+$GCA-$CTACG{'T'}), (
+$CTG
+$GCA+$GGC), ($CTG+$GCA+$GGC+
+$CG
),($GCA* $CTACG{'T'})+$CTACG{'G'},($GCA*$CTACG{'T'}* $CTACG{
+'G'})
+$GGC,$GCA+$CTG,$CTG+ $CG+$GCA,$GGC+ $CTG-
+$TG
,$CG+$CTG,$CTG+$GGC +$GCA-$AT,$CTG-$GCA-$GCA,$CTG+$GCA-$TG-$CG
+,
$CTACG{'T'}*$CTACG{'T'}*($TG**$CG)*($GCA- $CTACG{
+'G'}
), $CTG- $CTACG{'T'}, $CTG-$CG,
+$CTG
+$GCA-$CTACG{'T'}); my
+@GC=
split /T+/,$CAGTC;foreach my$TTC(@GC){my$
+CGTC=
$AT -$CG +$AT-$CG- $AT- $
+CG+
$AT+$CG; my$CTGCAC=$AT-$CG +$CG-$AT+$AT-$CG
+;
while (my $CTCCGA =substr(
$TTC, $CTGCAC,$AT)) {$CGTC+= $CTACG
{$CTCCGA} *( ($CG+ $TG+
$CG- $AT+$CG) ** $CTGCAC)
;++ $CTGCAC
;} print
chr( $CGC[
$CGTC ] ) ; }
my $CTCCGA
= qq;
A -- -- T
T -- -- A
C --- -- G
T --- --- A
G ------- C
T ----- A
A --- T
C - G
T
T - A
C ----- G
C ------- G
T ------- A
G ------- C
C ----- G
T --- A
A - T
G
T - A
T ----- A
C ------- G
G ------- C
T ------- A
T ----- A
G --- C
G - C
T
C - G
C ----- G
T ------- A
A ------- T
A ------- T
C ----- G
T --- A
C - G
A
C - G
T ----- A
G ------- C
A ------- T
C ------- G
T ----- A
G --- C
C - G
T
T - A
A ----- T
C ------- G
C ------- G
T ------- A
C ----- G
A --- T
C - G
T
G - C
A ----- T
C ------- G
T ------- A
C ------- G
C ----- G
C --- G
T - A
G
C - G
T ----- A
G ------- C
C ------- G
C ------- G
T ----- A
A --- T
G - C
C
T - A
T ----- A
C ------- G
G ------- C
C ------- G
T ----- A
G --- C
G - C
C
T - A
C ----- G
A ------- T
C ------- G
T ------- A
G ----- C
A --- T
C - G
T
A - T
T ----- A
A ------- T
; ;
joecamel