今日は文字と文字列について。
参考ページ：
cf. 11. 文字、文字列 – もうひとつの Scheme 入門
cf. 6.10 文字 – Gauche ユーザリファレンス
cf. 6.12 文字列 – Gauche ユーザリファレンス
文字
文字のリテラルは #\ に続けて文字を書く。たとえば a という文字を表すには #\a とする。なんか変な感じ。
gosh> #\a
#\a
あと、いくつかの特殊文字などには名前がついている。名前は大文字と小文字を区別しない。
- #\space
- #\newline
- #\return
- #\tab
- #\delete
- #\null
以下、文字にかんする関数をいくつか。
(char? obj) は obj が文字なら真を返す。
gosh> (char? #\a)
#t
(char=? c1 c2) は文字が等しければ真を返す。
gosh> (char=? #\a #\a)
#t
(char->integer c) は文字を整数（ASCIIコード）に変換する。(integer->char n) はその逆。
gosh> (char->integer #\a)
97
gosh> (integer->char 97)
#\a
(char-alphabetic? c)、(char-numeric? c)、(char-whitespace? c)、(char-upper-case? c)、(char-lower-case? c) はそれぞれ、c がアルファベット、数字、空白文字、大文字、小文字のときに真を返す。
gosh> (char-alphabetic? #\a)
#t
gosh> (char-numeric? #\1)
#t
gosh> (char-whitespace? #\space)
#t
gosh> (char-upper-case? #\A)
#t
gosh> (char-lower-case? #\a)
#t
(char-upcase c)、(char-downcase c) はそれぞれ、大文字、小文字に変換する。
gosh> (char-upcase #\a)
#\A
gosh> (char-downcase #\A)
#\a
文字列
文字列のリテラルは、たとえば “abc” みたいに ” でくくる。こっちは普通な感じ。
(string? s) は s が文字列なら真を返す。
gosh> (string? "foo")
#t
(string-length s) は文字列の長さ。
gosh> (string-length "foo")
3
(string=? s1 s2) は s1 と s2 が等しいとき真を返す。
gosh> (string=? "foo" "foo")
#t
(string-ref s idx) は s の idx番目の文字を返す。idx は0から。
gosh> (string-ref "abcde" 3)
#\d
(substring s start end) は start番目 から end – 1 番目の部分文字列を返す。Python のスライスと同じ要領だな。
gosh> (substring "abcde" 2 4)
"cd"
(string-append s1 s2) は文字列の連結。
gosh> (string-append "foo" "bar")
"foobar"
(string->list s) と (list->string ls) は文字列とリストの変換。
gosh> (string->list "abc")
(#\a #\b #\c)
gosh> (list->string '(#\a #\b #\c))
"abc"
こんなところか。もっと詳しくは参考ページで。
練習問題
最後に練習問題をやっておこう。11. 文字、文字列 – もうひとつの Scheme 入門 より。
単語の初めを大文字にする関数 title-style を書いてください。
(define title-style
(lambda (str)
(letrec ((u (lambda (l acc)
(cond
((null? l) (list->string (reverse acc)))
((char-whitespace? (car l)) (u (cdr l) (cons (car l) acc)))
(else (d (cdr l) (cons (char-upcase (car l)) acc))))))
(d (lambda (l acc)
(cond
((null? l) (list->string (reverse acc)))
((char-whitespace? (car l)) (u (cdr l) (cons (car l) acc)))
(else (d (cdr l) (cons (car l) acc)))))))
(u (string->list str) '()))))
(print (title-style "one size fits all"))
実行結果：
^o^ > gosh title-style.scm
One Size Fits All