Deutsch English Français Italiano |
<20240910212840.827@kylheku.com> View for Bookmarking (what is this?) Look up another Usenet article |
Path: ...!weretis.net!feeder8.news.weretis.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail From: Kaz Kylheku <643-408-1753@kylheku.com> Newsgroups: comp.lang.lisp,comp.lang.scheme Subject: Re: When does ADJUST-ARRAY cons? Date: Wed, 11 Sep 2024 04:29:29 -0000 (UTC) Organization: A noiseless patient Spider Lines: 25 Message-ID: <20240910212840.827@kylheku.com> References: <vbr4aa$3e40s$1@dont-email.me> Injection-Date: Wed, 11 Sep 2024 06:29:29 +0200 (CEST) Injection-Info: dont-email.me; posting-host="5ab64ce9d15f322c7a71bbb7db598b81"; logging-data="3618988"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/z1/CLRvqPnLolUMOxblR3TJJOp0AsV+c=" User-Agent: slrn/pre1.0.4-9 (Linux) Cancel-Lock: sha1:5clYbOrb9TTO9fcuDFfFLD5apUE= Bytes: 1389 On 2024-09-11, B. Pym <Nobody447095@here-nor-there.org> wrote: > Gauche Scheme > > (use gauche.generator) > > (define (foo f) > (generator-fold > + 0 > (gmap string-length (file->generator f read-line)))) > > (foo "output.dat") > ===> > 119 Yagoddabekidding! 1> (lflow "/etc/hosts" file-get-lines (sum len)) 213 -- TXR Programming Language: http://nongnu.org/txr Cygnal: Cygwin Native Application Library: http://kylheku.com/cygnal Mastodon: @Kazinator@mstdn.ca