added ex units from haskell plc

crates/uplc/src/tx/eval.rs

@@ -831,6 +831,12 @@ pub fn eval_redeemer(
                     None => ExBudget::default(),
                 };
 
+                println!(
+                    "({},{})",
+                    initial_budget.mem - budget.mem,
+                    initial_budget.cpu - budget.cpu
+                );
+
                 let new_redeemer = Redeemer {
                     tag: redeemer.tag.clone(),
                     index: redeemer.index,

crates/uplc/src/tx/tests.rs

@@ -258,6 +258,9 @@ fn test_eval() {
 fn test_eval_1() {
     /*
 
+    Haskell PLC: (738928, 215316271)
+    Aiken PLC: (721484, 210171376)
+
     PlutusV2
 
     {-# INLINEABLE mintTestValidator #-}
@@ -505,6 +508,9 @@ fn test_eval_1() {
 fn test_eval_2() {
     /*
 
+    Haskell PLC: (655782, 188449458)
+    Aiken PLC: (638338, 183304563)
+
     Plutus V1
 
     {-# INLINEABLE mintTestValidator #-}
@@ -911,6 +917,9 @@ fn test_eval_4() {
 fn test_eval_5() {
     /*
 
+    Haskell PLC: (114126, 40098159)
+    Aiken PLC: (114126,40211433)
+
     Plutus V1
 
     Helios script: