Sponsored links: Algebra eBooks
 

Related

let-or-read-string-values

:lisp (defun ucs-inse...

:lisp (loop for x fro...

Calculate

let-or-read-string

:lisp (defun ucs-inse...

:lisp (loop for x fro...

Calculate

let-or-read-string

:lisp (defun ucs-inse...

:lisp (loop for x fro...

Calculate

let-or-read-string

:lisp (defun ucs-inse...

:lisp (loop for x fro...

Calculate

let-or-read-string

:lisp (defun ucs-inse...

Calculate

let-or-read-string

:lisp (defun ucs-inse...

:lisp (loop for x fro...

Calculate

let-or-read-string-values

:lisp (defun ucs-inse...

:lisp (loop for x fro...

Calculate

let-or-read-string-values

:lisp (defun ucs-inse...

:lisp (loop for x fro...

Calculate

let-or-read-string

:lisp (defun ucs-inse...

:lisp (loop for x fro...

Calculate

let-or-read-string

:lisp (defun ucs-inse...

Calculate

[let,or,read,string]

Run Example
(%i1):lisp (defun ucs-insert (&optional character (count 1))    (if character       (let ((result (or (code-char character) (string (code-char character)))))         (progn           (dotimes (i count)            (print result))))         (progn           (setq character (read)                 resut (or (string (code-char character)) (code-char character)))             (dotimes (i count) (print result))))) ;

UCS-INSERT
(%i1) :lisp (loop for x from 32 to 127 do (format t "~a" (ucs-insert x)));

#\Space NIL
#\! NIL
#\" NIL
#\# NIL
#\$ NIL
#\% NIL
#\& NIL
#\' NIL
#\( NIL
#\) NIL
#\* NIL
#\+ NIL
#\, NIL
#\- NIL
#\. NIL
#\/ NIL
#\0 NIL
#\1 NIL
#\2 NIL
#\3 NIL
#\4 NIL
#\5 NIL
#\6 NIL
#\7 NIL
#\8 NIL
#\9 NIL
#\: NIL
#\; NIL
#\< NIL
#\= NIL
#\> NIL
#\? NIL
#\@ NIL
#\A NIL
#\B NIL
#\C NIL
#\D NIL
#\E NIL
#\F NIL
#\G NIL
#\H NIL
#\I NIL
#\J NIL
#\K NIL
#\L NIL
#\M NIL
#\N NIL
#\O NIL
#\P NIL
#\Q NIL
#\R NIL
#\S NIL
#\T NIL
#\U NIL
#\V NIL
#\W NIL
#\X NIL
#\Y NIL
#\Z NIL
#\[ NIL
#\\ NIL
#\] NIL
#\^ NIL
#\_ NIL
#\` NIL
#\a NIL
#\b NIL
#\c NIL
#\d NIL
#\e NIL
#\f NIL
#\g NIL
#\h NIL
#\i NIL
#\j NIL
#\k NIL
#\l NIL
#\m NIL
#\n NIL
#\o NIL
#\p NIL
#\q NIL
#\r NIL
#\s NIL
#\t NIL
#\u NIL
#\v NIL
#\w NIL
#\x NIL
#\y NIL
#\z NIL
#\{ NIL
#\| NIL
#\} NIL
#\~ NIL
#\Rubout NIL
NIL
(%i1) 
Run Example
:lisp (defun ucs-insert (&optional character (count 1))    (if character       (let ((result (or (code-char character) (string (code-char character)))))         (progn           (dotimes (i count)            (print result))))         (progn           (setq character (read)                 resut (or (string (code-char character)) (code-char character)))             (dotimes (i count) (print result))))) ;

UCS-INSERT
(%i1) :lisp (loop for x from 32 to 127 do (print (ucs-insert x)));

#\Space 
NIL 
#\! 
NIL 
#\" 
NIL 
#\# 
NIL 
#\$ 
NIL 
#\% 
NIL 
#\& 
NIL 
#\' 
NIL 
#\( 
NIL 
#\) 
NIL 
#\* 
NIL 
#\+ 
NIL 
#\, 
NIL 
#\- 
NIL 
#\. 
NIL 
#\/ 
NIL 
#\0 
NIL 
#\1 
NIL 
#\2 
NIL 
#\3 
NIL 
#\4 
NIL 
#\5 
NIL 
#\6 
NIL 
#\7 
NIL 
#\8 
NIL 
#\9 
NIL 
#\: 
NIL 
#\; 
NIL 
#\< 
NIL 
#\= 
NIL 
#\> 
NIL 
#\? 
NIL 
#\@ 
NIL 
#\A 
NIL 
#\B 
NIL 
#\C 
NIL 
#\D 
NIL 
#\E 
NIL 
#\F 
NIL 
#\G 
NIL 
#\H 
NIL 
#\I 
NIL 
#\J 
NIL 
#\K 
NIL 
#\L 
NIL 
#\M 
NIL 
#\N 
NIL 
#\O 
NIL 
#\P 
NIL 
#\Q 
NIL 
#\R 
NIL 
#\S 
NIL 
#\T 
NIL 
#\U 
NIL 
#\V 
NIL 
#\W 
NIL 
#\X 
NIL 
#\Y 
NIL 
#\Z 
NIL 
#\[ 
NIL 
#\\ 
NIL 
#\] 
NIL 
#\^ 
NIL 
#\_ 
NIL 
#\` 
NIL 
#\a 
NIL 
#\b 
NIL 
#\c 
NIL 
#\d 
NIL 
#\e 
NIL 
#\f 
NIL 
#\g 
NIL 
#\h 
NIL 
#\i 
NIL 
#\j 
NIL 
#\k 
NIL 
#\l 
NIL 
#\m 
NIL 
#\n 
NIL 
#\o 
NIL 
#\p 
NIL 
#\q 
NIL 
#\r 
NIL 
#\s 
NIL 
#\t 
NIL 
#\u 
NIL 
#\v 
NIL 
#\w 
NIL 
#\x 
NIL 
#\y 
NIL 
#\z 
NIL 
#\{ 
NIL 
#\| 
NIL 
#\} 
NIL 
#\~ 
NIL 
#\Rubout 
NIL 
NIL
(%i1) 
Run Example
:lisp (defun ucs-insert (&optional character (count 1))       (if character         (let ((result (or (code-char character) (string (code-char character)))))          (progn            (dotimes (i count)             (print result))))          (progn            (setq character (read)                  resut (or (string (code-char character)) (code-char character)))             (dotimes (i count) (print result))))) ;

UCS-INSERT
(%i1) :lisp (loop for x from #x2200 to #x2300 do (print (ucs-insert x)));

"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
"NIL" 
NIL 
NIL
(%i1) 

Related Help

Help for Let

Help for Or

Help for Read

Help for String