progman ad - DAIMI Wiki Server

24/2006
Best Marketing Concept of the Year
(AND Udtryk ...)
Denne funktion returnerer det logiske
AND (og) fra et Udtryk. AND
gennemløber et eller flere Udtryk
og returnerer nil, hvis et eller flere
Udtryk er nil. Ellers returneres T.
(AND 1.l l 2 3) = T
(AND 1.1 l nil) = nil
Udtryk kan naturligvis også erstattes
af variabelværdier (se SetQ):
(SETQ En l
To 2
Tom nil
)
vil give følgende svar:
(AND En To) = T
(AND En To Tom) = nil
(Atom Udtryk)
Denne funktion returnerer nil, hvis
Udtryk er en liste. Ellers returneres T.
Atom er således modstykket til ListP.
(Atom '(1.1 2.2 3.3)) = nil
(Atom "TEST") = T
(Atom a) = T
(Atom nil) = T
(BoundP Atom)
Denne funktion returnerer T, hvis
Atom har en værdi tilknyttet, ellers
returneres nil.
Hvis eksempelvis:
SetQ A 38
B nil
)
så er:
(BoundP 'A) = T
(BoundP 'B) = nil
(BoundP 'C) = nil
I aplama.lsp (se næste side) tester
BoundP om Px har en værdi. Hvis det
er tilfældet køres en While-Løkke.
(DeFun C:APLAMA (/ D i P P1 Pliste Px TP)
(InitGet 1)
(SetQ P1 (GetPoint "\nAngiv udgangspunkt: ")
Pliste '()
Px T
i 0
)
(While (Boundp 'px)
(SetQ Px (GetPoint P1 "\nNæste/Retur: "))
(IF (BoundP 'px)
(Progn
(SetQ Pliste (Cons Px Pliste)
D (Distance P1 px)
)
(GrText -l (StrCat "Afstand: " (RtoS D)))
(GrDraw P1 Px 2 1)
)
)
)
(SetQ D (MapCar '(Lambda (P) (Distance P P1)) Pliste))
(Princ (StrCat "\nAfstand: " (RtoS (Apply '+ D))))
(Prin1)
)
Ellers sluttes programmet.
(Cond (Test
Resultat1 ...) ...)
Denne funktion accepterer et antal
lister som argumenter. Det første element
i hver liste bliver testet, indtil
der ikke returneres nil; det vil sige
indtil udtrykket er sandt.
Cond er normalt at foretrække frem
for IF, hvor det er muligt. Normalt
sluttes en Cond med T som sidste test.
Det sikrer, at der returneres et eller
andet, og dermed at funktionen ikke
bryder ned.
(Eq Udtryk1 Udtryk2)
Denne funktion tester, om Udtryk1 og
Udtryk2 er identiske, d.v.s. bundet til
samme objekt (og ikke kun lig med
hinanden!). Eq anvendes typisk til at
bestemme, om to Udtryk faktisk er
identiske.
Hvis:
(SETQ Var1 '(a b c d)
Var2 '(a b c d)
Var3 Var2
)
Så er:
(EQ Var1 Var2) = nil
(EQ Var3 Var2) = T
(Cond (Test Resultat1 ...) ...)
(SetQ Svar (GetString "\nEr du sikker: "))
(Cond ((Svar "Y") (Princ "\nDu er sikker..."))
((Svar "J") (Princ "\nDu er sikker..."))
((Svar "N") (Princ "\nDu er ikke sikker..."))
(T (Princ "\nUkendt svar!..."))
)
Bemærk: Se også '=' og 'Equal'.
25