#sha*-digest*の戻り値をstring->listでリストにしようとすると*** ERROR: incomplete string not supported: 。string-ref使うのもなんなだあ
#string-refも使えないんだ
#(map (cut string-byte-ref digest <>)
(iota (string-length digest)))
#なんじゃこりゃー
#string->list的な何か？
#そうです
#sha*-digest*の戻り値が不完全文字列なので
#(let1 digest (sha1-digest-string (list->string data))
(map (cut string-byte-ref digest <>)
(iota (string-length digest))))#dataは文字のリスト
#incomplete stringってu8vectorに変換できないですかね
#できるっぽい
#(u8vector->list (string->u8vector (sha1-digest-string "abcdefg")))
#ひょっとして欲しいのはhexfyされたダイジェスト文字列なんじゃないの?
#digest-hexify 使うとか
#ああ、ダイジェスト文字列のバイト値のリストが欲しいのか...
#util.digest は便利ですね
#(let1 k (list->string '(#\xff #\xff #\xff))
(map (cut format "~x" <>)
(map (cut string-byte-ref k <>)
(iota (string-length k)))))#gosh> ("c3" "bf" "c3")
#そもそもlist->stringじゃだめっぽい
#util.digestってなにー
#(use util.digest)
#(digest-hexify (sha1-digest-string "abcdefg"))
#で "2fb5e13419fc89246865e7a324f476ec624e8740" が得られるやつ
#(map (cut string-byte-ref (list->string '(#\xff #\xff #\xff)) <>)
'(0 1 2))
#(195 191 195)
#string-byte-refがだめなのか/
#?
#(list->string '(#\xff #\xff #\xff)) が (195 191 195 191 195 191) のような文字列になるから
#byte-refはバイト (0-255の整数) を返すもの。
#"ÿÿÿ"（しゃとんで出るかな）
#不完全文字列がstring->listできないのは、「文字」という単位deno
#単位での分割ができないため。
#そんでえんどうさんが欲しいものは何?
#digest値のバイト列のリストです
#いやちがう。digest値の整数リストだ
#整数リストをdigestして整数リストを得たい
#整数リストの要素は0-255の整数
#(u8vector->string #u8(255 255 255))なら大丈夫？
#おお、これだ>u8vector->string
Gauche > Archives > 2010/03/04