Commit initial

1 files changed, 446 insertions, 0 deletions

diff --git a/comptes b/comptes
new file mode 100755
index 0000000..0fbacf2
--- /dev/null
+++ b/comptes
@@ -0,0 +1,446 @@
+#!/usr/bin/en perl
+# The MIT License (MIT)
+# 
+# Copyright (c) 2011-2015 Ismaël Bouya http://www.normalesup.org/~bouya/
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+use Switch;
+use strict;
+
+my $file = "comptes.data";
+
+my @actions=('Ajouter un participant');
+my %participants = ();
+my @transactions = ();
+my @descriptions = ();
+my $evenement_def;
+my $remboursements = "";
+
+if($#ARGV==0) {
+    open FILE, $ARGV[0] || die "Impossible de lire le fichier";
+    $evenement_def = <FILE>;
+    chomp($evenement_def);
+    while(my $noms = <FILE>) {
+        if($noms eq "\n") { last; }
+        my ($numero,$nom) = split(/ /,$noms,2);
+        chomp($nom);
+        $participants{$nom} = $numero;
+    }
+    while(my $transaction = <FILE>) {
+        if($transaction eq "\n") { last; }
+        chomp($transaction);
+        push(@transactions,$transaction);
+        my $description = <FILE>;
+        chomp($description);
+        push(@descriptions,$description);
+    }
+    $file = $ARGV[0];
+}
+
+GLOBALE: while(1) {
+    if(keys(%participants)>0) {
+        $actions[1]="Ajouter une dépense";
+        $actions[2]="Enregistrer";
+    }
+    if(scalar(@transactions)>0) {
+        $actions[3]="Voir les dépenses de quelqu'un";
+        $actions[2]="Enregistrer";
+        $actions[4]="Equilibrage";
+        $actions[5]="Voir une transaction";
+    }
+
+    my $action;
+    while(1) {
+        my $i = 1;
+        my $var;
+        my @vart = ( @actions, 'Sortir' );
+        my $message = '';
+        foreach $var ( @vart ) {
+            $message .= $i++.') '.$var."\n";
+        }
+        print $message;
+        $var = <STDIN>;
+        chop($var);
+        if(/\D/ || $var < 1 || $var > $i) {
+            print "Mauvaise entrée\n";
+            next;
+        }
+        $action = $vart[$var-1];
+        last;
+    }
+    switch ($action) {
+        case "Ajouter un participant" {
+            print "Nom du participant\n";
+            my $participant = <STDIN>;
+            chomp($participant);
+            $participants{$participant} = keys(%participants)+1;
+        }
+        case "Ajouter une dépense" {
+            print "Qui a payé ?\n";
+            my $paye;
+            while(1) {
+                my $i = 1;
+                my $var;
+                my @vart = ( keys(%participants), "Annuler" );
+                foreach $var ( @vart ) {
+                    print $i++.') '.$var."\n";
+                }
+                $var = <STDIN>;
+                chop($var);
+                if(/\D/ || $var < 1 || $var > $i) {
+                    print "Mauvaise entrée\n";
+                    next;
+                }
+                $paye = $vart[$var-1];
+                last;
+            }
+            if($paye eq "Annuler") {
+                next GLOBALE;
+            }
+            print "Quoi ?\n";
+            my $description = <STDIN>;
+            chomp($description);
+            print "Combien ?\n";
+            my $prix = <STDIN>;
+            chomp($prix);
+            print "Pour qui ?\n";
+            my $repartition = "";
+            my $total_parts = 0;
+          DESTS: while(1) {
+              my $dest;
+              while(1) {
+                  my $i = 1;
+                  my $var;
+                  my @vart = ( keys(%participants), "Ajouter à tous", "Fini" );
+                  foreach $var ( @vart ) {
+                      print $i++.') '.$var."\n";
+                  }
+                  $var = <STDIN>;
+                  chop($var);
+                  if(/\D/ || $var < 1 || $var > $i) {
+                      print "Mauvaise entrée\n";
+                      next;
+                  }
+                  $dest = $vart[$var-1];
+                  last;
+              }
+              switch($dest) {
+                  case "Fini" {
+                      if($repartition eq "") { print "Annulé\n"; }
+                      elsif($total_parts == 0) {
+                          print "Le nombre total de parts est nul, il faut en ajouter !\n";
+                          next DESTS;
+                      }
+                      else {
+                          push(@transactions, $participants{$paye}.' '.$prix.$repartition);
+                          push(@descriptions, $description);
+                      }
+                      last DESTS;
+                  }
+                  case "Ajouter à tous" {
+                      print "Nombre de parts ?\n";
+                      my $parts = <STDIN>;
+                      chomp($parts);
+                      if(!($parts == 0)) {
+                          foreach my $participant (keys(%participants)) {
+                              $repartition .= ' '.$participants{$participant}.':'.scalar($parts);
+                              $total_parts += scalar($parts);
+                          }
+                      }
+                  }
+                  else {
+                      print "Nombre de parts ?\n";
+                      my $parts = <STDIN>;
+                      chomp($parts);
+                      if(!($parts == 0)) {
+                          $repartition .= ' '.$participants{$dest}.':'.scalar($parts);
+                          $total_parts += scalar($parts);
+                      }
+                  }
+              }
+          }
+        }
+        case "Voir les dépenses de quelqu'un" {
+            my $personne;
+            while(1) {
+                my $i = 1;
+                my $var;
+                my @vart = ( keys(%participants), "Annuler" );
+                foreach $var ( @vart ) {
+                    print $i++.') '.$var."\n";
+                }
+                $var = <STDIN>;
+                chop($var);
+                if(/\D/ || $var < 1 || $var > $i) {
+                    print "Mauvaise entrée\n";
+                    next;
+                }
+                $personne = $vart[$var-1];
+                last;
+            }
+            if($personne eq "Annuler") {
+                next GLOBALE;
+            }
+            my $depenses = 0;
+            my $frais = 0;
+            foreach my $transaction (@transactions) {
+                my @table_trans = split(/ /,$transaction);
+                my $payeur = shift(@table_trans);
+                my $prix = shift(@table_trans);
+                if($payeur == $participants{$personne}) {
+                    $depenses += $prix;
+                }
+                my $parts = 0;
+                my $frac = 0;
+                my $repartition;
+                foreach $repartition (@table_trans) {
+                    my ($pers,$part) = split(/:/,$repartition);
+                    if($pers == $participants{$personne}) {
+                        $frac += $part;
+                    }
+                    $parts += $part;
+                }
+                $frais += $prix*$frac/$parts;
+            }
+            print $personne." a payé ".$depenses." EUR\n";
+            print "et a pour ".sprintf("%.2f",$frais)." EUR de frais au total.\n";
+            print "Il a donc un solde de ".sprintf("%.2f",$depenses-$frais)." EUR\n";
+            my $pause = <STDIN>;
+        }
+        case "Voir une transaction" {
+            my $transaction;
+            while(1) {
+                my $i = 1;
+                my $var;
+                my @vart = ( @descriptions, "Annuler" );
+                foreach $var ( @vart ) {
+                    print $i++.') '.$var."\n";
+                }
+                $var = <STDIN>;
+                chop($var);
+                if(/\D/ || $var < 1 || $var > $i) {
+                    print "Mauvaise entrée\n";
+                    next;
+                }
+                $transaction = $var-1;
+                last;
+            }
+            my @table_trans = split(/ /,$transactions[$transaction]);
+            my $payeur = shift(@table_trans);
+            my $prix = shift(@table_trans);
+            my $Tparts = 0;
+            my $repartition;
+            my %parts;
+            foreach my $pers (keys(%participants)) {
+                if($payeur == $participants{$pers}) {
+                    print $descriptions[$transaction]." (payé par ".$pers."), ".$prix." EUR\n";
+                    last
+                }
+            }
+            foreach $repartition (@table_trans) {
+                my ($pers,$part) = split(/:/,$repartition);
+                $Tparts += $part;
+                $parts{$pers} += $part;
+            }
+            foreach my $pers (keys(%participants)) {
+                if(!exists $parts{$participants{$pers}}) {
+                    next;
+                }
+                print $pers.", ".$parts{$participants{$pers}}." part(s), soit ". $prix*$parts{$participants{$pers}}/$Tparts." EUR\n";
+            }
+            my $pause = <STDIN>;
+        }
+        case "Enregistrer" {
+            print "Nom de l'événement ?";
+            if(!($evenement_def eq "")) {
+                print " [".$evenement_def."]";
+            }
+            print "\n";
+            my $evenement = <STDIN>;
+            chomp($evenement);
+            if($evenement eq "") {
+                $evenement = $evenement_def;
+            }
+            open FILE, ">".$file;
+            print FILE $evenement."\n";
+            my $key;
+            foreach $key (keys(%participants)) {
+                print FILE $participants{$key}." ".$key."\n";
+            }
+            print FILE "\n";
+            for(my $i=0;$i<scalar(@transactions);$i++) {
+                print FILE $transactions[$i]."\n";
+                print FILE $descriptions[$i]."\n";
+            }
+            print FILE "\n";
+            print FILE $remboursements;
+            close FILE;
+        }
+        case "Equilibrage" {
+            my %Tdepenses = ();
+            my %Tfrais = ();
+            my %Tsolde = ();
+            $remboursements = "";
+            foreach my $Ttransaction (@transactions) {
+                my @Ttable_trans = split(/ /,$Ttransaction);
+                my $Tpayeur = shift(@Ttable_trans);
+                my $Tprix = shift(@Ttable_trans);
+                $Tdepenses{$Tpayeur} = $Tdepenses{$Tpayeur} + $Tprix;
+                my $Tparts = 0;
+                my $Tfrac = 0;
+                my $Trepartition;
+                foreach $Trepartition (@Ttable_trans) {
+                    my ($Tpers,$Tpart) = split(/:/,$Trepartition);
+                    $Tparts += $Tpart;
+                }
+                foreach $Trepartition (@Ttable_trans) {
+                    my ($Tpers,$Tpart) = split(/:/,$Trepartition);
+                    $Tfrais{$Tpers} = $Tfrais{$Tpers} + $Tprix*$Tpart/$Tparts;
+                }
+            }
+            foreach my $Tpersonne (keys(%participants)) {
+                my $numero = $participants{$Tpersonne};
+                $Tsolde{$Tpersonne} = sprintf("%.2f",$Tdepenses{$numero}-$Tfrais{$numero});
+                print $Tpersonne." a un solde de ".$Tsolde{$Tpersonne}." EUR\n";
+            }
+            my $pause = <STDIN>;
+            print "Y-a-t-il des remboursements plus aisés ?\n";
+            my $ouinon;
+            while(1) {
+                my $i = 1;
+                my $var;
+                my @vart = ( "Oui", "Non" );
+                foreach $var ( @vart ) {
+                    print $i++.') '.$var."\n";
+                }
+                $var = <STDIN>;
+                chop($var);
+                if(/\D/ || $var < 1 || $var > $i) {
+                    print "Mauvaise entrée\n";
+                    next;
+                }
+                $ouinon = $vart[$var-1];
+                last;
+            }
+          AISE: while($ouinon eq "Oui") {
+              print "Qui ?\n";
+              my $personne;
+              while(1) {
+                  my $i = 1;
+                  my $var;
+                  my @vart = ( keys(%participants), "Fini" );
+                  foreach $var ( @vart ) {
+                      print $i++.') '.$var."\n";
+                  }
+                  $var = <STDIN>;
+                  chop($var);
+                  if(/\D/ || $var < 1 || $var > $i) {
+                      print "Mauvaise entrée\n";
+                      next;
+                  }
+                  $personne = $vart[$var-1];
+                  last;
+              }
+              if($personne eq "Fini") { last AISE; }
+              print "Avec qui ?\n";
+              my $personneb;
+              while(1) {
+                  my $i = 1;
+                  my $var;
+                  my @vart = ( keys(%participants), "Annuler" );
+                  foreach $var ( @vart ) {
+                      print $i++.') '.$var."\n";
+                  }
+                  $var = <STDIN>;
+                  chop($var);
+                  if(/\D/ || $var < 1 || $var > $i) {
+                      print "Mauvaise entrée\n";
+                      next;
+                  }
+                  $personneb = $vart[$var-1];
+                  last;
+              }
+              if($personneb eq "Annuler") { next AISE; }
+              if($Tsolde{$personne}*$Tsolde{$personneb}<0) {
+                  my $pers_inf = ($Tsolde{$personne}<0)?$personne:$personneb;
+                  my $pers_sup = ($Tsolde{$personne}>0)?$personne:$personneb;
+                  my $inf = (abs($Tsolde{$personne})<abs($Tsolde{$personneb}))?abs($Tsolde{$personne}):abs($Tsolde{$personneb});
+                  $remboursements .= $pers_inf." doit ".$inf." EUR à ".$pers_sup."\n";
+                  $Tsolde{$pers_inf} += $inf;
+                  $Tsolde{$pers_sup} -= $inf;
+              }
+          }
+            # Une boucle pour détecter si on a des couples qui s'annulent mutuellement
+          COUPLE: foreach my $personne (keys(%participants)) {
+              if($Tsolde{$personne} == 0) { next; }
+              foreach my $personneb (keys(%participants)) {
+                  if($Tsolde{$personneb} + $Tsolde{$personne} != 0) { next; }
+                  my $pers_inf = ($Tsolde{$personne}<0)?$personne:$personneb;
+                  my $pers_sup = ($Tsolde{$personne}>0)?$personne:$personneb;
+                  my $val = abs($Tsolde{$personne});
+                  $remboursements .= $pers_inf." doit ".$val." EUR à ".$pers_sup."\n";
+                  $Tsolde{$pers_inf} += $val;
+                  $Tsolde{$pers_sup} -= $val;
+                  next COUPLE;
+              }
+          }
+          REMB: while(1) {
+              # On supprime les 0, et on fait deux hashs
+              my %Tneg = ();
+              my %Tpos = ();
+              foreach my $personne (keys(%Tsolde)) {
+                  if($Tsolde{$personne} == 0) { delete $Tsolde{$personne}; }
+                  elsif($Tsolde{$personne} < 0) { $Tneg{$personne} = $Tsolde{$personne}; }
+                  elsif($Tsolde{$personne} > 0) { $Tpos{$personne} = $Tsolde{$personne}; }
+              }
+              if(keys(%Tneg) == 0) {
+                  last REMB;
+              }
+              foreach my $neg (sort { $Tneg{$a} cmp $Tneg{$b} } keys %Tneg) {
+                  my $max = 0;
+                  my $positif = 0;
+                  foreach my $pos (sort { $Tpos{$a} cmp $Tpos{$b} } keys %Tpos) {
+                      if($Tpos{$pos} + $Tneg{$neg}>0) {
+                          $positif = $pos;
+                          last;
+                      }
+                      $max = $pos;
+                  }
+                  if(!($max eq 0)) {
+                      $remboursements .= $neg." doit ".$Tsolde{$max}." EUR à ".$max."\n";
+                      $Tsolde{$neg} += $Tsolde{$max};
+                      delete $Tsolde{$max};
+                  }
+                  else {
+                      $remboursements .= $neg." doit ".-$Tsolde{$neg}." EUR à ".$positif."\n";
+                      $Tsolde{$positif} += $Tsolde{$neg};
+                      delete $Tsolde{$neg};
+                  }
+                  next REMB;
+              }
+          }
+            print $remboursements;
+            my $pause = <STDIN>;
+        }
+        case "Sortir" {
+            last GLOBALE;
+        }
+    }
+}