27 lines
348 B
Plaintext
27 lines
348 B
Plaintext
:- module(dense_int,[dense_int/0]).
|
|
|
|
:-use_module(library(chr)).
|
|
|
|
:-chr_type 'Arity' == dense_int.
|
|
|
|
:-chr_constraint c1(+'Arity').
|
|
|
|
:-chr_option(line_numbers, on).
|
|
:-chr_option(check_guard_bindings, on).
|
|
:-chr_option(debug, off).
|
|
:-chr_option(optimize, full).
|
|
|
|
dense_int :-
|
|
c1(1),
|
|
c1(1).
|
|
|
|
|
|
no_duplicates @
|
|
c1(X)
|
|
\
|
|
c1(X)
|
|
<=>
|
|
true.
|
|
|
|
|