Changeset 4096 for trunk/library/loopp.lgt
- Timestamp:
- 02/16/08 04:29:57 (11 months ago)
- Files:
-
- 1 modified
-
trunk/library/loopp.lgt (modified) (7 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/library/loopp.lgt
r4094 r4096 7 7 date is 2008/2/16, 8 8 comment is 'Loop control constructs protocol.']). 9 10 9 11 10 :- public(whiledo/2). … … 34 33 :- mode(forto(+number, +number, @callable), zero_or_one). 35 34 :- info(forto/3, [ 36 comment is 'Call Goal counting up from First to Last. Increment is 1. For convenience and clarity, First and Last can be arithmetic expressions. ',35 comment is 'Call Goal counting up from First to Last. Increment is 1. For convenience and clarity, First and Last can be arithmetic expressions. This predicate fails iff the Goal fails.', 37 36 argnames is ['First', 'Last', 'Goal']]). 38 37 … … 41 40 :- mode(forto(@var, +number, +number, @callable), zero_or_one). 42 41 :- info(forto/4, [ 43 comment is 'Call Goal counting up from First to Last and instantiating Count to each successive value. Increment is 1. For convenience and clarity, First and Last can be arithmetic expressions. ',42 comment is 'Call Goal counting up from First to Last and instantiating Count to each successive value. Increment is 1. For convenience and clarity, First and Last can be arithmetic expressions. This predicate fails iff the Goal fails.', 44 43 argnames is ['Count', 'First', 'Last', 'Goal']]). 45 44 … … 48 47 :- mode(forto(@var, +number, +number, +number, @callable), zero_or_one). 49 48 :- info(forto/5, [ 50 comment is 'Call Goal counting up from First to Last and instantiating Count to each successive value. For convenience and clarity, First, Last, and Increment can be arithmetic expressions. The absolute value of Increment is used. ',49 comment is 'Call Goal counting up from First to Last and instantiating Count to each successive value. For convenience and clarity, First, Last, and Increment can be arithmetic expressions. The absolute value of Increment is used. This predicate fails iff the Goal fails.', 51 50 argnames is ['Count', 'First', 'Last', 'Increment', 'Goal']]). 52 51 … … 55 54 :- mode(fordownto(+number, +number, @callable), zero_or_one). 56 55 :- info(fordownto/3, [ 57 comment is 'Call Goal counting down from First to Last. Decrement is 1. For convenience and clarity, First and Last can be arithmetic expressions. ',56 comment is 'Call Goal counting down from First to Last. Decrement is 1. For convenience and clarity, First and Last can be arithmetic expressions. This predicate fails iff the Goal fails.', 58 57 argnames is ['First', 'Last', 'Goal']]). 59 58 … … 62 61 :- mode(fordownto(@var, +number, +number, @callable), zero_or_one). 63 62 :- info(fordownto/4, [ 64 comment is 'Call Goal counting down from First to Last and instantiating Count to each successive value. Decrement is 1. For convenience and clarity, First and Last can be arithmetic expressions. ',63 comment is 'Call Goal counting down from First to Last and instantiating Count to each successive value. Decrement is 1. For convenience and clarity, First and Last can be arithmetic expressions. This predicate fails iff the Goal fails.', 65 64 argnames is ['Count', 'First', 'Last', 'Goal']]). 66 65 … … 69 68 :- mode(fordownto(@var, +number, +number, +number, @callable), zero_or_one). 70 69 :- info(fordownto/5, [ 71 comment is 'Call Goal counting down from First to Last and instantiating Count to each successive value. For convenience and clarity, First, Last, and Decrement can be arithmetic expressions. The absolute value of Decrement is used. ',70 comment is 'Call Goal counting down from First to Last and instantiating Count to each successive value. For convenience and clarity, First, Last, and Decrement can be arithmetic expressions. The absolute value of Decrement is used. This predicate fails iff the Goal fails.', 72 71 argnames is ['Count', 'First', 'Last', 'Decrement', 'Goal']]). 73 72
