nerdbeard
422c425c76
A simple program written in several languages for the purpose of examining these languages.
45 lines
1.8 KiB
Plaintext
45 lines
1.8 KiB
Plaintext
(hissp.basic.._macro_.prelude)
|
|
|
|
(defmacro setq (symbol value)
|
|
"lol this isn't even my lisp"
|
|
`(setitem (locals) (quote ,symbol) ,value))
|
|
|
|
(define livesort
|
|
(lambda (next-line ; iterable function
|
|
print ; function to write output
|
|
height ; window/screen height in lines
|
|
width ; window/screen width in characters
|
|
)
|
|
(let (lines (list) ; sorted lines
|
|
cursor 0 ; line number to keep on screen and highlight
|
|
quitting? False ; set flag to exit loop
|
|
)
|
|
;; the cursor is thought to exist between line `cursor` and `cursor - 1`
|
|
(any-for line next-line
|
|
(let (lineno (bisect..bisect lines line))
|
|
(unless (gt lineno cursor)
|
|
(setq cursor (add cursor 1)))
|
|
(.insert lines lineno line)
|
|
(print (.format "c{}" (render lines cursor height width))))
|
|
quitting?))))
|
|
|
|
(define render
|
|
(lambda (lines ; sequence of sorted lines
|
|
cursor ; line to keep on-screen
|
|
height ; window height
|
|
width ; and width
|
|
)
|
|
(.join "\n"
|
|
(map (lambda (line) (getitem line (slice 0 width)))
|
|
(getitem lines
|
|
(let (r (ifloordiv height 2))
|
|
(slice (max 0 (sub cursor r))
|
|
(min (len lines) (add cursor r)))))))))
|
|
|
|
|
|
(when (eq __name__ '__main__)
|
|
(livesort sys..stdin
|
|
sys..stdout.write
|
|
(int (|| (os..getenv 'LINES) "24"))
|
|
(int (|| (os..getenv 'COLUMNS) "80"))))
|