From: Markus Triska <triska@metalevel.at>
Date: Wed, 24 Aug 2022 22:03:30 +0000 (+0200)
Subject: remove nth1/3, which is now provided by library(lists)
X-Git-Tag: v0.9.1^2~23
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=87e966e185ad59461ce5b1b36499a1e3c4d3afa0;p=scryer-prolog.git

remove nth1/3, which is now provided by library(lists)
---

diff --git a/src/lib/simplex.pl b/src/lib/simplex.pl
index 9522dab6..001571a8 100644
--- a/src/lib/simplex.pl
+++ b/src/lib/simplex.pl
@@ -1344,10 +1344,6 @@ print_row(R) :- maplist(print_row_, R), nl.
 
 print_row_(N) :- format("~w ", [N]).
 
-nth1(N, Es, E) :-
-        N1 is N - 1,
-        nth0(N1, Es, E).
-
 %?- transportation([1,1], [1,1], [[1,1],[1,1]], Ms).
 
 %?- transportation([12,7,14], [3,15,9,6], [[20,50,10,60],[70,40,60,30],[40,80,70,40]], Ms).