---

jupyter: jupytext: text_representation: extension: .md format_name: markdown format_version: '1.3' jupytext_version: 1.16.7 kernelspec: display_name: Logtalk language: logtalk name: logtalk_kernel ---

<!--

This file is part of Logtalk https://logtalk.org/ SPDX-FileCopyrightText: 1998-2025 Paulo Moura <pmoura@logtalk.org> SPDX-License-Identifier: Apache-2.0

Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at

http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License. -->

This folder contains a set of experimental examples illustrating how to use the CLP(FD) library distributed with SICStus Prolog 4.x with Logtalk.

The CLP(FD) library is loaded from the loader.lgt auxiliary loader file. This library must always be loaded prior to compilation of the individual example files.

In most cases, objects and categories containing CLP(FD) code must be compiled using the hook file ("sicstus_clpfd_hook.lgt") provided in this directory (see the "loader.lgt" file for an example). This hook file provides support for compilation of indexicals and overrides the meta- predicate directives of the CLP(FD) meta-predicates. When using the CLP(FD) labeling/2 enumeration predicate, the value/1 and variable/1 options are currently not supported.

Within objects and categories, is strongly recommended that you use the use_module/2 directive for the CLP(FD) module.

Print Logtalk, Prolog backend, and kernel versions (if running as a notebook):

%versions

Start by loading the example:

logtalk_load(clp_sicstus(loader)).

%%table
cars_ix::cars_ix([ff], X).

<!-- X = [1,2,6,3,5,4,4,5,3,6] ? ; X = [1,3,6,2,5,4,3,5,4,6] ? ; X = [1,3,6,2,6,4,5,3,4,5] ? ; X = [5,4,3,5,4,6,2,6,3,1] ? ; X = [6,3,5,4,4,5,3,6,2,1] ? ; X = [6,4,5,3,4,5,2,6,3,1] ? ; false. -->

%%table
cars_ix::cars_ix2([ff], X).

<!-- X = [1,2,6,3,5,4,4,5,3,6] ? ; X = [1,3,6,2,5,4,3,5,4,6] ? ; X = [1,3,6,2,6,4,5,3,4,5] ? ; X = [5,4,3,5,4,6,2,6,3,1] ? ; X = [6,3,5,4,4,5,3,6,2,1] ? ; X = [6,4,5,3,4,5,2,6,3,1] ? ; false. -->

%%table
cars_ix::cars_ix3([ff], X).

<!-- X = [1,2,6,3,5,4,4,5,3,6] ? ; X = [1,3,6,2,5,4,3,5,4,6] ? ; X = [1,3,6,2,6,4,5,3,4,5] ? ; X = [5,4,3,5,4,6,2,6,3,1] ? ; X = [6,3,5,4,4,5,3,6,2,1] ? ; X = [6,4,5,3,4,5,2,6,3,1] ? ; false. -->

squares::squares(dual,card).

<!-- [1,1,5,7,7,9,9,9] [1,7,7,1,5,5,7,9]

true. -->

squares::squares(dual,spec).

<!-- [1,7,7,1,7,9,5,5] [1,1,5,7,9,9,7,9]

true. -->

squares::squares(dual,wcd).

<!-- [1,1,5,7,7,9,9,9] [1,7,7,1,5,5,7,9]

true. -->

squares::squares(dual,disjoint).

<!-- [1,1,5,7,7,9,9,9] [1,7,7,1,5,5,7,9]

true. -->

torpedo::torpedo(id113).

<!-- +----------+ | # # | | # ## #| | # ## | | # ## | | # # | | # ###| | # | | # | | | | | +----------+

true. -->

smm::smm([leftmost],value).

<!-- [9,5,6,7,1,0,8,2].

true. -->

smm::smm_ix([leftmost],value).

<!-- [9,5,6,7,1,0,8,2].

true. -->