cleaning up bin

[dotfiles.git] / bin / meme-math.pl

diff --git a/bin/meme-math.pl b/bin/meme-math.pl
deleted file mode 100755 (executable)
index 7fe6aad..0000000
--- a/bin/meme-math.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-
-my $start = time;
-for (my $n = 0; $n < 100; $n++) {
-    my $f = $n - 25;
-    my $tmp = 50 - $n;
-    my $b = $tmp * $tmp;
-
-    my $ans = $n * $n;
-    my $ans2 = sprintf("%02d%02d",$f,$b);
-    #my $ans2 = 100*$f+$b;
-    print "$n^2 = $ans => $ans2\n" unless $ans == $ans2;
-}
-my $end = time - $start;
-
-print "Execution Time: $end";