only commit so far

chaining.pl

@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use v5.10;
+
+my @sentences;
+while(<>) {
+    chomp;
+    my @sentence_frags = grep /\S/, split /[.?!]/;
+    
+#    $sentences[-1] .= shift @sentence_frags
+ #           if @sentences && @sentence_frags;
+
+    push @sentences, @sentence_frags;
+}
+
+my %words;
+for (@sentences) {
+   my @words = grep /\S/, split /\W/;
+   my $last = '';
+   for my $word (@words) {
+       $word = lc $word;
+       $words{$last}{$word}++;
+       $last = $word;
+   }
+   $words{$last}{''}++;
+}
+
+#say for @sentences;
+
+#use Data::Dumper;
+#print Dumper %words;
+
+
+for my $si (0..10) {
+    
+    my $word = '';
+    while(1) {
+        my $next = $words{$word};
+        my @next2 = map { ($_) x $next->{$_} } keys %$next;
+
+        $word = $next2[int rand @next2];
+        last if
+            $word eq '';
+        print "$word ";
+    }
+    print "\n";
+}
+