efim
/
common-lisp-study
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

koans FORMAT 

there are list printing things, each ~A takes element out of list
there's case adjustment for strings, and ~S is to be able to read things
in again
This commit is contained in:
efim 2022-08-01 07:49:12 +00:00
parent a9bdaaccee
commit c85aa1bbe5
1 changed files with 36 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
lisp-koans/koans/format.lisp
View File

@ -22,63 +22,69 @@
(define-test format-basic
;; If there are no format directives in the string, FORMAT will return
;; a string that is STRING= to its format control.
(assert-equal ____ (format nil "Lorem ipsum dolor sit amet")))
(assert-equal "Lorem ipsum dolor sit amet" (format nil "Lorem ipsum dolor sit amet")))
(define-test format-aesthetic
;; The ~A format directive creates aesthetic output.
(assert-equal ____ (format nil "This is the number ~A" 42))
(assert-equal ____ (format nil "This is the keyword ~A" :foo))
(assert-equal ____ (format nil "~A evaluates to ~A"
(assert-equal "This is the number 42" (format nil "This is the number ~A" 42))
(assert-equal "This is the keyword FOO" (format nil "This is the keyword ~A" :foo))
(assert-equal "(/ 24 (- 3 (/ 8 3))) evaluates to 72" (format nil "~A evaluates to ~A"
'(/ 24 (- 3 (/ 8 3)))
(/ 24 (- 3 (/ 8 3)))))
(assert-equal ____ (format nil "This is the character ~A" #\C))
(assert-equal ____ (format nil "In a ~A" "galaxy far far away")))
(assert-equal "This is the character C" (format nil "This is the character ~A" #\C))
(assert-equal "In a galaxy far far away" (format nil "In a ~A" "galaxy far far away")))
(define-test format-standard
;; The ~S format directive prints objects with escape characters.
;; Not all Lisp objects require to be escaped.
(assert-equal ____ (format nil "This is the number ~S" 42))
(assert-equal ____ (format nil "~S evaluates to ~S"
(assert-equal "This is the number 42" (format nil "This is the number ~S" 42))
(assert-equal "(/ 24 (- 3 (/ 8 3))) evaluates to 72" (format nil "~S evaluates to ~S"
'(/ 24 (- 3 (/ 8 3)))
(/ 24 (- 3 (/ 8 3)))))
;; Keywords are printed with their leading colon.
(assert-equal ____ (format nil "This is the keyword ~S" :foo))
(assert-equal "This is the keyword :FOO" (format nil "This is the keyword ~S" :foo))
;; Characters are printed in their #\X form. The backslash will need to be
;; escaped inside the printed string, just like in "#\\X".
(assert-equal ____ (format nil "This is the character ~S" #\C))
(assert-equal "This is the character #\\C" (format nil "This is the character ~S" #\C))
;; Strings include quote characters, which must be escaped:
;; such a string might look in code like "foo \"bar\"".
(assert-equal ____ (format nil "In a ~S" "galaxy far far away")))
(assert-equal "In a \"galaxy far far away\"" (format nil "In a ~S" "galaxy far far away")))
(define-test format-radix
;; The ~B, ~O, ~D, and ~X radices print numbers in binary, octal, decimal, and
;; hexadecimal notation.
(assert-equal ____ (format nil "This is the number ~B" 42))
(assert-equal ____ (format nil "This is the number ~O" 42))
(assert-equal ____ (format nil "This is the number ~D" 42))
(assert-equal ____ (format nil "This is the number ~X" 42))
;; The ~B, ~O, ~D, and ~X radices print numbers in binary, octal, decimal, and
;; hexadecimal notation
(assert-equal "This is the number 101010" (format nil "This is the number ~B" 42))
(assert-equal "This is the number 52" (format nil "This is the number ~O" 42))
(assert-equal "This is the number 42" (format nil "This is the number ~D" 42))
(assert-equal "This is the number 2A" (format nil "This is the number ~X" 42))
;; We can specify a custom radix by using the ~R directive.
(assert-equal ____ (format nil "This is the number ~3R" 42))
(assert-equal "This is the number 1120" (format nil "This is the number ~3R" 42))
;; It is possible to print whole forms this way.
(let ((form '(/ 24 (- 3 (/ 8 3))))
(result (/ 24 (- 3 (/ 8 3)))))
(assert-equal ____ (format nil "~B evaluates to ~B" form result))
(assert-equal ____ (format nil "~O evaluates to ~O" form result))
(assert-equal ____ (format nil "~D evaluates to ~D" form result))
(assert-equal ____ (format nil "~X evaluates to ~X" form result))
(assert-equal ____ (format nil "~3R evaluates to ~3R" form result))))
(assert-equal "(/ 11000 (- 11 (/ 1000 11))) evaluates to 1001000"
(format nil "~B evaluates to ~B" form result))
(assert-equal "(/ 30 (- 3 (/ 10 3))) evaluates to 110"
(format nil "~O evaluates to ~O" form result))
(assert-equal "(/ 24 (- 3 (/ 8 3))) evaluates to 72"
(format nil "~D evaluates to ~D" form result))
(assert-equal "(/ 18 (- 3 (/ 8 3))) evaluates to 48"
(format nil "~X evaluates to ~X" form result))
(assert-equal "(/ 220 (- 10 (/ 22 10))) evaluates to 2200"
(format nil "~3R evaluates to ~3R" form result))
))
(define-test format-iteration
;; The ~{ and ~} directives iterate over a list.
(assert-equal ____ (format nil "~{[~A]~}" '(1 2 3 4 5 6)))
(assert-equal ____ (format nil "~{[~A ~A]~}" '(1 2 3 4 5 6)))
(assert-equal "[1][2][3][4][5][6]" (format nil "~{[~A]~}" '(1 2 3 4 5 6)))
(assert-equal "[1 2][3 4][5 6]" (format nil "~{[~A ~A]~}" '(1 2 3 4 5 6)))
;; The directive ~^ aborts iteration when no more elements remain.
(assert-equal ____ (format nil "~{[~A]~^, ~}" '(1 2 3 4 5 6))))
(assert-equal "[1], [2], [3], [4], [5], [6]" (format nil "~{[~A]~^, ~}" '(1 2 3 4 5 6))))
(define-test format-case
;; The ~( and ~) directives adjust the string case.
(assert-equal ____ (format nil "~(~A~)" "The QuIcK BROWN fox"))
(assert-equal "the quick brown fox" (format nil "~(~A~)" "The QuIcK BROWN fox"))
;; Some FORMAT directives can be further adjusted with the : and @ modifiers.
(assert-equal ____ (format nil "~:(~A~)" "The QuIcK BROWN fox"))
(assert-equal ____ (format nil "~@(~A~)" "The QuIcK BROWN fox"))
(assert-equal ____ (format nil "~:@(~A~)" "The QuIcK BROWN fox")))
(assert-equal "The Quick Brown Fox" (format nil "~:(~A~)" "The QuIcK BROWN fox"))
(assert-equal "The quick brown fox" (format nil "~@(~A~)" "The QuIcK BROWN fox"))
(assert-equal "THE QUICK BROWN FOX" (format nil "~:@(~A~)" "The QuIcK BROWN fox")))