~jojo/Carth

ref: 749208029494a7c48ce04444a513424f4b998416 Carth/examples/count-lines.carth -rw-r--r-- 124 bytes
74920802JoJo update TODO 6 months ago
                                                                                
1
2
3
4
5
;; Count lines of stdin

(import std)

(define main (io/bind display (io/map (<o show-nat (<o count lines)) get-contents)))