我想要找到一个字符串中等于特定字符的索引,但我似乎无法解决它。
这是我得到的内容,但它并没有起作用...
(define getPos
(lambda ()
(define s (apply string-append myList))
(getPosition pos (string->list s))))
(define getPosition
(lambda (position s)
(if (and (< position (length s)) (equal? (car s) #\space))
((set! pos (+ pos 1)) (getPosition (cdr s) pos));increment the positon and continue the loop
pos)));else
(define length
(lambda (s);the value s must be coverted to a string->list when passed in
(cond
((null? s) 0)
(else (+ 1 (length (cdr s)))))))
((get-function) 5 6)
但是set!
被认为会评估为一个未知值,因此它不会成为一个有效的过程对象。对于块,你可以使用(begin expression ...)
。 - Sylwester