我有一个关于我一直试图运行的程序的问题。 加密需要一条消息,公钥和私钥,并将公钥中的消息中的字母更改为私钥中的字母。 (加密“abcd”“abcd”“efgh”)应返回“efgh” 和(加密“abcl”“abcd”“efgh”)应返回“efgl”(来自已被不在公钥中将保持不变)。加密[娇小Chez计划]
我已经写了一些帮助程序来解决这个问题,但是当我尝试运行它时,我不断收到错误“车内异常,__不是一对”..但我不确定什么是错。如果有人有任何指示,请告诉我。谢谢!
(define encrypt
(lambda (message public-key private-key)
(cond
[(list->string (encrypt-helper (string->list message)
(string->list public-key) (string->list private-key)))])))
(define encrypt-helper
(lambda (msg-ls public-ls private-ls)
(cond
[(null? public-ls) '()]
[(null? private-ls) '()]
[(and (null? public-ls) (null? private-ls)) msg-ls]
[else (cons (encrypt-key (car msg-ls) (car public-ls) (car private-ls))
(encrypt-helper (cdr msg-ls) (cdr public-ls) (cdr private-ls)))])))
;should encrypt all letters in msg-ls. not working correctly
(define encrypt-key
(lambda (char pub-key priv-key)
(cond
[(null? pub-key) char]
[(equal? char (car pub-key)) (car priv-key)]
[else (encrypt-key char (cdr pub-key) (cdr priv-key))])))
;encrypts just one letter, ex: (encrypt-key 'a '(a) '(b)) => b
;works correctly
方案是很容易调试。步进器阻止你的步骤是什么? – LostLin 2011-03-30 20:02:21