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

feat: update sub-string-list

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

40
game.scm
View file

@ -166,24 +166,28 @@
`(pre ,(string-join ink-script "\n"))) `(pre ,(string-join ink-script "\n")))
(define (sub-string-list string-list start len part) (define (sub-string-list string-list start len)
(if (string? (car string-list)) (define (sub-string-list-iter string-list start len part)
(if (> (string-length (car string-list)) start) (if (string? (car string-list))
(append part (if (> (string-length (car string-list)) start)
(list (substring (car string-list) 0 start) (append part
(substring (car string-list) start (+ start len))) (if (= start 0 )
(if (= (+ start len) (string-length (car string-list))) '()
'() (substring (car string-list) 0 start))
(list (substring (car string-list) (+ start len) (string-length (car string-list))))) (list (substring (car string-list) start (+ start len)))
(cdr string-list)) (if (= (+ start len) (string-length (car string-list)))
(sub-string-list (cdr string-list) '()
(- start (string-length (car string-list))) (list (substring (car string-list) (+ start len) (string-length (car string-list)))))
len (cdr string-list))
(append part (list (car string-list))))) (sub-string-list-iter (cdr string-list)
(sub-string-list (cdr string-list) (- start (string-length (car string-list)))
(- start (string-length (car (last-pair (car string-list))))) len
len (append part (list (car string-list)))))
(append part (list (car string-list)))))) (sub-string-list-iter (cdr string-list)
(- start (string-length (car (last-pair (car string-list)))))
len
(append part (list (car string-list))))))
(sub-string-list-iter string-list start len '()))
;; Main ;; Main
(set! *template* template-task) (set! *template* template-task)