アカウント名:
パスワード:
より多くのコメントがこの議論にあるかもしれませんが、JavaScriptが有効ではない環境を使用している場合、クラシックなコメントシステム(D1)に設定を変更する必要があります。
私は悩みをリストアップし始めたが、そのあまりの長さにいやけがさし、何も考えないことにした。-- Robert C. Pike
列は row でなくて column じゃなかろうか (スコア:1)
(defun coltonum (x)
(interactive "s")
(let ((ret 0))
(while (and
(string-match "^[A-Za-z]\\{,4\\}$" x)
(> (length x) 0))
(setq ret (+ (* ret 26) (% (aref x 0) 32)))
(setq x (substring x 1)))
(setq ret (if (> ret 0) (1- ret) 0))
(if (interactive-p) (princ ret t) ret)))