southfox/autumn-lisp-game-jam-2024
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: add find-string-list-len

Browse source 
Signed-off-by: SouthFox <master@southfox.me>
This commit is contained in:
SouthFox 2024-11-01 13:59:40 +08:00
parent 1d3d292fa7
commit 6425e62a20
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
game.scm
View file

@ -165,7 +165,7 @@
)) ))
`(pre ,(string-join ink-script "\n"))) `(pre ,(string-join ink-script "\n")))
;; Lib
(define (sub-string-list string-list start len) (define (sub-string-list string-list start len)
(define (sub-string-list-iter string-list start len part) (define (sub-string-list-iter string-list start len part)
(if (string? (car string-list)) (if (string? (car string-list))
@ -189,6 +189,15 @@
(append part (list (car string-list)))))) (append part (list (car string-list))))))
(sub-string-list-iter string-list start len '())) (sub-string-list-iter string-list start len '()))
(define (find-string-list-len string-list)
(define (find-string-list-len-iter string-list offset)
(if (string? (car string-list))
(if (string-index (car string-list) #\newline)
(+ (string-index (car string-list) #\newline) offset)
(find-string-list-len-iter (cdr string-list) (+ (string-length (car string-list)) offset)))
(find-string-list-len-iter (cdr string-list) (+ (string-length (car (last-pair (car string-list)))) offset) )))
(find-string-list-len-iter string-list 0))
;; Main ;; Main
(set! *template* template-task) (set! *template* template-task)