Anonymous user
Show ASCII table: Difference between revisions
Added a common lisp solution
m (Re-added erroneously removed markup) |
(Added a common lisp solution) |
||
Line 573:
</pre>
=={{header|Common Lisp}}==
<lang lisp>(setq startVal 32)
(setq endVal 127)
(setq cols 6)
(defun print-val (val) "Prints the value for that ascii number"
(cond
((= val 32) (format t " 32: SPC "))
((= val 127) (format t "127: DEL~%"))
((and (zerop (mod (- val startVal) cols)) (< val 100)) (format t "~% ~d: ~a " val (int-char val)))
((and (zerop (mod (- val startVal) cols)) (>= val 100)) (format t "~%~d: ~a " val (int-char val)))
((< val 100) (format t " ~d: ~a " val (int-char val)))
((>= val 100) (format t "~d: ~a " val (int-char val)))
(t nil)))
(defun get-range (lower upper) "Returns a list of range lower to upper"
(if (> lower upper) '() (cons lower (get-range (+ 1 lower) upper))))
(mapcar #'print-val (get-range startVal endVal))</lang>
{{out}}
<pre> 32: SPC 33: ! 34: " 35: # 36: $ 37: %
38: & 39: ' 40: ( 41: ) 42: * 43: +
44: , 45: - 46: . 47: / 48: 0 49: 1
50: 2 51: 3 52: 4 53: 5 54: 6 55: 7
56: 8 57: 9 58: : 59: ; 60: < 61: =
62: > 63: ? 64: @ 65: A 66: B 67: C
68: D 69: E 70: F 71: G 72: H 73: I
74: J 75: K 76: L 77: M 78: N 79: O
80: P 81: Q 82: R 83: S 84: T 85: U
86: V 87: W 88: X 89: Y 90: Z 91: [
92: \ 93: ] 94: ^ 95: _ 96: ` 97: a
98: b 99: c 100: d 101: e 102: f 103: g
104: h 105: i 106: j 107: k 108: l 109: m
110: n 111: o 112: p 113: q 114: r 115: s
116: t 117: u 118: v 119: w 120: x 121: y
122: z 123: { 124: | 125: } 126: ~ 127: DEL</pre>
=={{header|Factor}}==
===Idiomatic version===
| |||