Mck Cntst B1-2223 LISP
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
( format t "Hello World!" )
( print "***************************************" )
( print ( CAR '( HEAD BODY ) ) ) ; => HEAD
( print ( CAR '( (HEAD) (BODY) ) ) ) ; => (HEAD)
( print "***************************************" )
( print (SETQ M '(1 2 (5 1) (3 (4 5) 6) (2 (4)))) ) ; => (1 2 (5 1) (3 (4 5) 6) (2 (4)))
( print "FYI: The head is 1." )
( print (CDR M) ) ; => (2 (5 1) (3 (4 5) 6) (2 (4)))
( print "FYI: The head is 2." )
( print (CDR (CDR M)) ) ; => ((5 1) (3 (4 5) 6) (2 (4)))
( print "FYI: (5 1) is the head." )
( print (REVERSE (CDR (CDR M))) ) ; => ((2 (4)) (3 (4 5) 6) (5 1))
( print "FYI: There are 3 lists inside the list M" )
( print "FYI: (2 (4)) is the head." )
( print (CDR (REVERSE (CDR (CDR M)))) ) ; => ((3 (4 5) 6) (5 1))
( print "FYI: (3 (4 5) 6) is the head." ) ;
( print (CAR (CDR (REVERSE (CDR (CDR M))))) ) ; => ((3 (4 5) 6) (5 1)) => (3 (4 5) 6)
( print (CDR (CAR (CDR (REVERSE (CDR (CDR M)))))) ) ; => ((4 5) 6)
( print "***************************************" )
( print (SETQ M '(1 (2 3) (4 (5) (6 7)))) ) ; => (1 (2 3) (4 (5) (6 7)))
( print (CDR (REVERSE (CAR (REVERSE (CDR M))))) ) ; => ((5) 4)
( print "***************************************" )
( print ( / 3 2 ) )
( print (CAR '(A B C)) )
( print (CAR '((A B C))) )
( print "***************************************" )
( print (SETQ M '(1 2 (5 1) (3 (4 5) 6) (2 (4)))) )
( print (CDR (CAR (CDR (REVERSE (CDR (CDR M)))))) )
( print "***************************************" )
( print (CDR '(1 2 3 4)) ) ; => the list (2 3 4)
( print "***************************************" )
( print (CDR '(1)) ) ; => NIL
( print (CDR '((1))) ) ; => NIL
( print "***************************************" )
( print (CDR '(1 (2))) ) ; => ((2))
( print (CDR '((1) 2)) ) ; => (2)
( print (CDR '(1 2)) ) ; => (2)
( print "***************************************" )
( print (CAR '(1 2)) ) ; => 1
( print (CAR '((1) 2)) ) ; => (1)
( print (CAR '(1)) ) ; => 1
( print (CAR '((1))) ) ; => (1)
( print "***************************************" )
( print (CAR '(1 2 3 4)) ) ; => the atom/element 1 (not a list)
( print (CDR '(1 (2 3 4))) ) ; => the list ((2 3 4)) is a list with a list inside
( print (CAR '(1 (2 3 4))) ) ; => 1
( print (CAR '((1 2 3) 4)) ) ; => (1 2 3)
( print "***************************************" )
( print (CDR '(2 (3 (1) 2))) ) ; => ((3 (1) 2))
( print (CAR (CDR '(2 (3 (1) 2)))) ) ; => (3 (1) 2)
( print (CDR (CAR (CDR '(2 (3 (1) 2))))) ) ; => ((1) 2)
( print "THE END")
Clisp
INFO