From 8a03b835d8710f36fa0cea43a4e0950120c4731c Mon Sep 17 00:00:00 2001
From: Micke Nordin <micke@reliant.local>
Date: Thu, 27 Oct 2016 20:24:07 +0200
Subject: [PATCH] Better output

---
 cellaut.pl | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/cellaut.pl b/cellaut.pl
index aae9703..1cf3425 100755
--- a/cellaut.pl
+++ b/cellaut.pl
@@ -2,6 +2,8 @@
 use strict;
 use warnings;
 use POSIX;
+use utf8;
+binmode(STDOUT, ":utf8");
 
 # Get arguments
 my $gens = $ARGV[0];
@@ -61,6 +63,18 @@ sub set_up_init {
 	
 }
 
+sub print_arr {
+	foreach my $elem (values @_) {
+		if($elem) {
+			print " ";
+		} else {
+			print "■";
+		}
+	}
+	print "\n";
+	#sleep 0.5;
+}
+
 # Print usage
 sub usage {
 	print "$0 <number of generations> <width> <rule number (0-255)> [num rules]\n";
@@ -75,8 +89,8 @@ if (scalar @ARGV < 3 or $rule > $num_rules) {
 
 # Get the initial condition and print it out
 my @initial = set_up_init;
-print @initial;
-print "\n";
+print_arr @initial;
+#print "\n";
 
 # Now loop through all the generations
 for (my $gen = 0; $gen < $gens; $gen++) {
@@ -99,8 +113,8 @@ for (my $gen = 0; $gen < $gens; $gen++) {
 	# The next state is now the new initial
 	@initial = @next;
 	# Print it out
-	print @initial;
-	print "\n";
+	print_arr @initial;
+	#print "\n";
 }
 
 exit 0