/prog/ - common lisp awareness

Name: Anonymous 2013-03-23 5:19



(coerce (list #\a #\b #\a #\b) 'string) ==> "abab"

(coerce (vector #\a #\b #\a #\b) 'string) ==> "abab"

(coerce "abab" 'list) ==> (#\a #\b #\a #\b)

(coerce "abab" 'vector) ==> "abab"

(map 'string #'char-invertcase "Abab") ==> "aBAB"

(map 'list #'char-invertcase "Abab") ==> (#\a #\B #\A #\B)

(map 'string #'character (list 48 49 50 51)) ==> "0123"

(sort (list 3 1 5 4) #'<) ==> (1 3 4 5)

(sort (vector 3 1 5 4) #'<) ==> #(1 3 4 5)

(sort "zzzxyxyyxyzz" #'char<) ==> "xxxyyyyzzzzz"

(elt "abafb" 3) ==> #\f

(elt (list 'a 'b 'a 'f 'b) 3) ==> F

(elt (vector 'a 'b 'a 'f 'b) 3) ==> F

Name: Anonymous 2013-03-23 12:58

>>4 ok



(reverse "donkey") ==> "yeknod"

(reverse (list 1 2 3 4)) ==> (4 3 2 1)

(reverse (vector 1 2 3 4)) ==> #(4 3 2 1)

(merge 'vector (list 1 3 5 7) (vector 2 4 6 8) #'<) ==> #(1 2 3 4 5 6 7 8)

(merge 'string "candy" "apple" #'char<) ==> "acandppley"

(merge 'list "candy" "apple" #'char<) ==> (#\a #\c #\a #\n #\d #\p #\p #\l #\e #\y)

(reduce #'- (list 1 2 3 4)) ==> -8

(reduce #'- (list 1 2 3 4) :from-end t) ==> -2

(reduce (lambda (s1 s2) (string-concat s2 (reverse s1))) (map 'list #'string "Common Lisp Awareness Week")) ==> "ke snrw sLnmoCmo ipAaeesWe"

common lisp awareness

1 Name: Anonymous 2013-03-23 5:19

6 Name: Anonymous 2013-03-23 12:58

Name: Anonymous 2013-03-23 5:19

Name: Anonymous 2013-03-23 12:58