From 9862f6da22f854ccdfd4a36cbe50f69b72266856 Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Sun, 2 Jan 2022 18:21:40 -0500 Subject: cleaned up submission, didn't have time this week to do more. --- challenge-145/adam-russell/blog.txt | 0 challenge-145/adam-russell/blog1.txt | 0 challenge-145/adam-russell/cxx/ch-2.cxx | 0 challenge-145/adam-russell/perl/ch-2.pl | 68 -------------------------------- challenge-145/adam-russell/prolog/ch-2.p | 0 5 files changed, 68 deletions(-) delete mode 100644 challenge-145/adam-russell/blog.txt delete mode 100644 challenge-145/adam-russell/blog1.txt delete mode 100644 challenge-145/adam-russell/cxx/ch-2.cxx delete mode 100644 challenge-145/adam-russell/perl/ch-2.pl delete mode 100644 challenge-145/adam-russell/prolog/ch-2.p diff --git a/challenge-145/adam-russell/blog.txt b/challenge-145/adam-russell/blog.txt deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/challenge-145/adam-russell/blog1.txt b/challenge-145/adam-russell/blog1.txt deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/challenge-145/adam-russell/cxx/ch-2.cxx b/challenge-145/adam-russell/cxx/ch-2.cxx deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/challenge-145/adam-russell/perl/ch-2.pl b/challenge-145/adam-russell/perl/ch-2.pl deleted file mode 100644 index 9f8ba48a44..0000000000 --- a/challenge-145/adam-russell/perl/ch-2.pl +++ /dev/null @@ -1,68 +0,0 @@ -use strict; -use warnings; -## -# You are given a string $s. -# Write a script to create a Palindromic Tree for $s. -## -use Graph; -use boolean; -use Graph::Easy::Parser; - -use constant EMPTY => 0; -use constant IMAGINARY => -1; - -package EerTreeVertex{ - use Class::Struct; - struct( - start => q/$/, - end => q/$/, - length => q/$/, - suffix => q/EerTreeVertex/, - labelled => q/@/ - ); -} - -sub initialize{ - my $graph = new Graph(refvertexed => true); - my $root_empty = new EerTreeVertex( - length => EMPTY - ); - my $root_imaginary = new EerTreeVertex( - length => IMAGINARY - ); - $graph->add_edge($root_empty, $root_imaginary); - $graph->add_edge($root_imaginary, $root_imaginary); - return $graph; -} - -sub build_tree{ - my($s) = @_; - my @letters = split(//, $s); - my $eertree = initialize; - - return $eertree; -} - -sub eertree{ - my($s) = @_; - return build_tree($s); -} - -sub display_graph{ - my($graph) = @_; - my $s = $graph->stringify(); - my @s = split(/,/, $s); - my @lines; - for my $n (@s){ - my @a = split(/-/, $n); - push @lines, "[ $a[0] ] => [ ]" if @a == 1; - push @lines, "[ $a[0] ] => [ $a[1] ]" if @a > 1; - } - my $parser = new Graph::Easy::Parser(); - my $graph_viz = $parser->from_text(join("", @lines)); - print $graph_viz->as_ascii(); -} - -MAIN:{ - print eertree("redivider"); -} \ No newline at end of file diff --git a/challenge-145/adam-russell/prolog/ch-2.p b/challenge-145/adam-russell/prolog/ch-2.p deleted file mode 100644 index e69de29bb2..0000000000 -- cgit