Lisp Scheme Part19 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
500:デフォルトの名無しさん 08/02/08 16:44:49 宿題スレでLispの質問しちゃいけないわけじゃないでしょ？ 501:デフォルトの名無しさん 08/02/08 17:15:55 (define (utf8len str) __(begin (define (follow-char? c) ____________(char<=? #\200 c #\277))) __(and (string? str) _______(let ((strlen (string-length str))) _________(let loop ((acc 0) ____________________(i 0)) ___________(cond ((= i strlen) acc) _________________((char<=? #\0 ___________________________(string-ref str i) ___________________________#\177) __________________(loop (+ acc 1) (+ i 1))) _________________((and (< (+ i 1) strlen) _______________________(char<=? #\300 ________________________________(string-ref str i) ________________________________#\337) _______________________(follow-char? (string-ref str (+ i 1)))) 502:デフォルトの名無しさん 08/02/08 17:19:21 続きが書き込めない

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5383日前に更新/210 KB
担当:undef