@cassidoo I did this weeks interview question in Janet. While possible to mutate `a` I took the functional approach and return a new array, which is a little more idiomatic for a Lisp-like language.
Also, weighed myself. 85.9KG, my lowest ever weight as an adult. Intermittent fasting test has gone ok. I am fasting from 8pm to 10am everyday. No issues, yes, I am hungry at 10am.
Also reduced my sugar intake and I am feeling better, but not like "woah bro, I feel soooo good dude!" level of better. Just feel a little better. :)
Before work today:
Migrated a test local copy of my blog to a 128GB USB 3 stick, Pi 4 boots and the blog is running. Should be more performant than micro SD.
Now: Listening to LCD Soundsystem: Sound of Silver.
@thedyslexicKitchenwitxh @WinFuture
Wahrscheinlich hat man einen als Kauf getarnten Leasingvertrag unterschrieben. Warum "Premium" kaufen, wenn man sich bei "Budget" das Abo für die Sitzheizung und die Dauerwerbung erspart?
Nimic nu e fără consecințe. Personal, multă vreme am crezut (sau am sperat) că schimbarea climaterică nu o să ne afecteze atât de tare. Acum... Vedem consecințele a decenii de distrus la scară industrială natura https://www.theguardian.com/world/2026/aug/03/romania-blasts-divert-danube-water-nuclear-reactor-energy-crisis-hungary
![Screenshot of a terminal running Neovim with two panes. The top one has the source code:
(defn reorder [vals ixs]
(reduce (fn [a pair] (put a ;pair))
@[]
(pairs (zipcoll ixs vals))))
(def a ["C" "D" "E" "F" "G" "H"])
(def b [3 0 4 1 2 5])
(pp (reorder a b))
The bottom pane is an embedded terminal that has run: janet reorder.janet (which is the file being edited above), and has the output:
@["D" "F" "G" "C" "E" "H"]](https://mastodon.decentralised.social/system/media_attachments/files/117/036/277/579/378/474/original/964379d7d67029c5.png)
