From 75821152c41cd3bfbbff1a6f0a817fd326db88fc Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@babyl.dyndns.org>
Date: Mon, 18 Dec 2017 17:45:56 -0500
Subject: [PATCH] not working yet

---
 2015/24/1.pl      | 96 +++++++++++++++++++++++++++++++++++++++++++++++
 2015/24/input.txt | 28 ++++++++++++++
 2 files changed, 124 insertions(+)
 create mode 100644 2015/24/1.pl
 create mode 100644 2015/24/input.txt

diff --git a/2015/24/1.pl b/2015/24/1.pl
new file mode 100644
index 0000000..79f2e40
--- /dev/null
+++ b/2015/24/1.pl
@@ -0,0 +1,96 @@
+use 5.20.0;
+
+my @gifts = map { 0+$_} <>;
+
+use List::AllUtils qw/ sum product min /;
+
+my $goal = sum(@gifts)/3;
+
+use experimental qw/ signatures postderef /;
+
+use DDP;
+
+my $min = 1E99;
+aggregate( \@gifts, [shift @gifts], [] );
+
+
+sub aggregate($gifts,$sofar,$next,$done=undef) {
+#    p @_;
+    my $total = sum $sofar->@*;
+
+    return if $total > $goal;
+
+    if( $total == $goal ) {
+        if ( $done ) {
+            # warn @$next, '!', @$gifts;
+            #$DB::single = 1;
+            die unless @$next or @$gifts;
+            my @elt  = ( $done, $sofar, [ @$next, @$gifts ] );
+            my @sorted = sort {
+                @$a <=> @$b
+                or
+                product(@$a) <=> product(@$b)
+            } @elt;
+            my $prev = $min;
+            $min = min $min, product @{$sorted[0]};
+            say $min if $min < $prev;
+            return; 
+        }
+        
+        my @n = ( @$next, @$gifts );
+        return aggregate( \@n, [shift @n], [], $sofar );
+    }
+
+    my @g = @$gifts or return;
+    my $i = shift @g;
+
+    aggregate( \@g, [ @$sofar, $i ], $next, $done );
+    aggregate( \@g, $sofar, [ @$next, $i ], $done );
+
+}
+
+__END__
+
+my $min = 1E99;
+my @poss = possibilities(\@gifts,[]);
+say $min;
+
+use DDP;
+
+p @poss;
+
+
+
+sub possibilities( $left, $parts, $sum = 0 ) {
+    if( $sum == 0 ) {
+
+        if( @$parts == 2 ) {
+            my @parts = ( @$parts, $left );
+
+            my @sorted = sort {
+                @$a <=> @$b
+                or
+                product(@$a) <=> product(@$b)
+            } @$parts;
+            $min = min $min, product @{$sorted[0]};
+            say $min;
+            return;
+        }
+        else {
+            my @left = @$left;
+            my $i = shift @left or return;
+            $parts = [ @$parts, [ $i ] ];
+            $sum = $goal - $i;
+        }
+
+    }
+
+    for my $g ( grep { $sum - $_ >= 0 } @$left ) {
+        my @parts = @$parts;
+        $parts[-1] = [  @{$parts[-1]}, $g  ];
+        possibilities( [ grep { $_ != $g } @$left], \@parts, $sum - $g );
+    }
+
+}
+
+
diff --git a/2015/24/input.txt b/2015/24/input.txt
new file mode 100644
index 0000000..e204f7d
--- /dev/null
+++ b/2015/24/input.txt
@@ -0,0 +1,28 @@
+1
+3
+5
+11
+13
+17
+19
+23
+29
+31
+37
+41
+43
+47
+53
+59
+67
+71
+73
+79
+83
+89
+97
+101
+103
+107
+109
+113