import cs2030s.fp.InfiniteList;
import cs2030s.fp.Immutator;
import java.util.ArrayList;
import java.util.List;

class Test3 {
  public static void main(String[] args) {

    CS2030STest i = new CS2030STest();

    i.expectReturn("InfiniteList.generate(() -> 1).filter(x -> x % 2 == 0).toString()",
        () -> InfiniteList.generate(() -> 1).filter(x -> x % 2 == 0).toString(),
        "[? ?]");
    i.expectReturn("InfiniteList.iterate(1, x -> x + 1).filter(x -> x % 2 == 0).toString()",
        () -> InfiniteList.iterate(1, x -> x + 1).filter(x -> x % 2 == 0).toString(),
        "[? ?]");

    i.expect("InfiniteList.iterate(1, x -> x + 1).filter(x -> x % 2 == 0).head() returns 2",
        InfiniteList.iterate(1, x -> x + 1).filter(x -> x % 2 == 0).head(), 2);
    i.expect("InfiniteList.iterate(1, x -> x + 1).filter(x -> x % 2 == 0)" +
        ".filter(x -> x > 4).head() returns 6",
        InfiniteList.iterate(1, x -> x + 1).filter(x -> x % 2 == 0).filter(x -> x > 4).head(), 6);

    List<Integer> incrHistory = new ArrayList<>();
    List<Integer> isEvenHistory = new ArrayList<>();
    Immutator<Boolean, Integer> isEven = x -> { 
      isEvenHistory.add(x); 
      return x % 2 == 0; 
    };
    Immutator<Integer, Integer> incr = x -> { 
      incrHistory.add(x); 
      return x + 1; 
    };

    i.expect("InfiniteList.iterate(1, x -> x + 1).filter(x -> x % 2 == 0).tail() " + 
        ".head()\n" + " ..returns 4", 
        InfiniteList.iterate(1, incr).filter(isEven).tail().head(), 4);
    i.expect(" ..causes three evals on x -> x + 1", 
        incrHistory, List.of(1, 2, 3));
    i.expect(" ..causes four evals on x -> x % 2 == 0", 
        isEvenHistory, List.of(1, 2, 3, 4));

    incrHistory.retainAll(List.of());
    isEvenHistory.retainAll(List.of());

    InfiniteList<Integer> nums = InfiniteList.iterate(1, incr);
    InfiniteList<Integer> evens = nums.filter(isEven);
    evens.tail().head();
    i.expect("InfiniteList<Integer> nums = InfiniteList.iterate(1, x -> x + 1)\n" + 
        "InfiniteList<Integer> evens = nums.filter(x -> x % 2 == 0)\n" + 
        "After evens.tail().head()\n" +
        " ..nums.toString() returns [<1> [<2> [<3> [<4> ?]]]]",
        nums.toString(), "[<1> [<2> [<3> [<4> ?]]]]");
    i.expect(" ..evens.toString() returns [<> [<2> [<> [<4> ?]]]]",
        evens.toString(), "[<> [<2> [<> [<4> ?]]]]");
    nums.tail().head();
    i.expect(" ..calling nums.tail().head()\n" + 
        " ....causes zero evaluation of x -> x + 1", 
        incrHistory, List.of(1, 2, 3));
    evens.tail().head();
    i.expect(" ..calling evens.tail().head()\n" + 
        " ....causes zero evaluation of x -> x % 2 == 0", 
        isEvenHistory, List.of(1, 2, 3, 4));
    i.expect(" ....causes zero evaluation of x -> x + 1", 
        incrHistory, List.of(1, 2, 3));

    incrHistory.retainAll(List.of());
    isEvenHistory.retainAll(List.of());

    List<Integer> moreThan5History = new ArrayList<>();
    Immutator<Boolean, Integer> moreThan5 = x -> { 
      moreThan5History.add(x); 
      return x > 5; 
    };

    i.expect("InfiniteList.iterate(1, x -> x + 1).filter(x -> x > 5).filter(x -> x % 2 == 0)" +
        ".head()\n" +
        " ..returns 6",
        InfiniteList.iterate(1, incr).filter(moreThan5).filter(isEven).head(), 6);
    i.expect(" ..causes five evals on x -> x + 1",
        incrHistory, List.of(1, 2, 3, 4, 5));
    i.expect(" ..causes six evals on x -> x > 5",
        moreThan5History, List.of(1, 2, 3, 4, 5, 6));
    i.expect(" ..causes one evals on x -> x % 2 == 0",
        isEvenHistory, List.of(6));

    incrHistory.retainAll(List.of());
    isEvenHistory.retainAll(List.of());
    moreThan5History.retainAll(List.of());

    List<Integer> doublerHistory = new ArrayList<>();
    Immutator<Integer, Integer> doubler = x -> { 
      doublerHistory.add(x); 
      return x * 2; 
    };

    i.expect("InfiniteList.iterate(1, x -> x + 1).map(x -> x * 2).filter(x -> x > 5)" +
        ".filter(x -> x % 2 == 0).tail().head()\n" +
        " ..returns 6",
        InfiniteList.iterate(1, incr).map(doubler).filter(moreThan5).filter(isEven)
        .tail().head(), 8);
    i.expect(" ..causes three evals on x -> x + 1",
        incrHistory, List.of(1, 2, 3));
    i.expect(" ..causes four evals on x -> x * 2",
        doublerHistory, List.of(1, 2, 3, 4));
    i.expect(" ..causes four evals on x -> x > 5",
        moreThan5History, List.of(2, 4, 6, 8));
    i.expect(" ..causes two evals on x -> x % 2 == 0",
        isEvenHistory, List.of(6, 8));

    doublerHistory.retainAll(List.of());
    incrHistory.retainAll(List.of());
    isEvenHistory.retainAll(List.of());
    moreThan5History.retainAll(List.of());

    i.expect("InfiniteList.iterate(1, x -> x + 1).filter(x -> x % 2 == 0).map(x -> x * 2)" +
        ".filter(x -> x > 5).head()\n" +
        " ..returns 8",
        InfiniteList.iterate(1, incr).filter(isEven).map(doubler).filter(moreThan5).head(), 8);
    i.expect(" ..causes three evals on x -> x + 1",
        incrHistory, List.of(1, 2, 3));
    i.expect(" ..causes four evals on x -> x % 2 == 0",
        isEvenHistory, List.of(1, 2, 3, 4));
    i.expect(" ..causes two evals on x -> x * 2",
        doublerHistory, List.of(2, 4));
    i.expect(" ..causes two evals on x -> x > 5",
        moreThan5History, List.of(4, 8));
  }
}