rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change domain_error(integer, ..) to type_error(integer, ..) in random.pl (#1310)

Browse Source
This commit is contained in:
Mark Thom
2022-03-03 23:24:26 -07:00
parent 0c25ffc26e
commit d7a3ed2d4a
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/random.pl
View File

@@ -24,9 +24,9 @@ random_integer(Lower, Upper, R) :-
( (var(Lower) ; var(Upper)) -> ( (var(Lower) ; var(Upper)) ->
instantiation_error(random_integer/3) instantiation_error(random_integer/3)
; \+ integer(Lower) -> ; \+ integer(Lower) ->
domain_error(integer, Lower, random_integer/3) type_error(integer, Lower, random_integer/3)
; \+ integer(Upper) -> ; \+ integer(Upper) ->
domain_error(integer, Upper, random_integer/3) type_error(integer, Upper, random_integer/3)
; Upper > Lower, ; Upper > Lower,
random(R0), random(R0),
R is floor((Upper - Lower) * R0 + Lower) R is floor((Upper - Lower) * R0 + Lower)