null+****@clear*****
null+****@clear*****
Fri Jun 8 00:14:38 JST 2012
yuta yamada 2012-06-08 00:14:38 +0900 (Fri, 08 Jun 2012)
New Revision: 329348c81d47a388db13e86c9b028999e08c4cc0
Log:
loga-compute-length: assign variable
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -1)
===================================================================
--- logalimacs.el 2012-06-08 00:06:43 +0900 (240eb30)
+++ logalimacs.el 2012-06-08 00:14:38 +0900 (0a9eea5)
@@ -307,7 +307,8 @@
(defun loga-compute-length (sentence)
(loop with sum = 0
- for token in (string-to-list (split-string sentence "")) do
+ with tokens = (string-to-list (split-string sentence ""))
+ for token in tokens do
(cond
((equal "" token) t)
((and (multibyte-string-p token)