home *** CD-ROM | disk | FTP | other *** search
- (a) Das Wort im Editor:
-
- TO CARDINALP :Xì
- ;PRUEFT, OB :X EINE NATUERLICHE ZAHL ISTì
- ;KOMMENTAR WIRD BEI LISTENBILDUNG ENTFERNTì
- IF (NOT NUMBERP :X) [OP "FALSE]ì
- IF (NOT :X = INT :X) [OP "FALSE]ì
- IF (:X < 1) [OP "FALSE]ì
- OP "TRUEì
- END
-
-
- (b) Das Wort als Liste :
-
- [[X] [IF (NOT NUMBERP :X) [OP "FALSE]]ì
- [IF (NOT :X = INT :X) [OP "FALSE]]ì
- [IF (:X < 1) [OP "FALSE]] [OP "TRUE]]