This is a test.
And test.
これはテストです。
This is テスト。
これは test.
emphasis emphasis 強調 強調 underlined underlined 下線 下線
(defun foo ()
'foo)
あ
い
おしまい
見出し1
あああ
見出し2
いいい
見出し3
ううう
This is a test.
And test.
これはテストです。
This is テスト。
これは test.
emphasis emphasis 強調 強調 underlined underlined 下線 下線
(defun foo ()
'foo)
あ
い
おしまい
あああ
いいい
ううう
以前 CL パッケージで中で最も長いシンボルはどれか探すのを SERIES でやろうとした。そのとき series:collect-max の使い方をよく理解してなかった。第1引数に数値のシリーズをとるので、最大長は返せるけど、その最大長を持つシンボルは返せないと思っていた。
でも、第二引数に第一引数と対応するシンボルのシリーズを渡してやるとちゃっとシンボルの方を返してくれた。
この最大のものを返すといのは loop マクロが苦手としているところで、iterate なんかが上手に解決しているところ。SERIES でもきれいに書けてよかった。
(require :series)
(let* ((symbols (series:scan-symbols :cl))
(lengths (series:map-fn t (lambda (symbol)
(length (symbol-name symbol)))
symbols)))
(series:collect-max lengths symbols))
あああ
いいいい
うううう
まみむめも♪
おおおお
おおおお
おおおお
おおおお
(in-package :blogger)
(defvar *author* nil)
(defvar *email* nil)
(defvar *passwd* nil)
(defvar *blog-id* nil)
(defvar *blogger* nil)
(load (merge-pathnames #p".blogger.lisp" (user-homedir-pathname)))
;; Drakma の設定
;; UTF-8
(setq *drakma-default-external-format* :utf-8)
;; application/atom+xml をバイナリではなくテキストとして扱う。
(pushnew (cons "application" "atom+xml") drakma:*text-content-types*
:test #'equal)
あああ
いいいい
うううう
まみむめも♪
おおおお
(in-package :blogger)
(defvar *author* nil)
(defvar *email* nil)
(defvar *passwd* nil)
(defvar *blog-id* nil)
(defvar *blogger* nil)
(load (merge-pathnames #p".blogger.lisp" (user-homedir-pathname)))
;; Drakma の設定
;; UTF-8
(setq *drakma-default-external-format* :utf-8)
;; application/atom+xml をバイナリではなくテキストとして扱う。
(pushnew (cons "application" "atom+xml") drakma:*text-content-types*
:test #'equal)