#lispygopherclimate https://archives.anonradio.net/202501220000_screwtape.mp3 #archive
#ClimateCrisis haiku/wildfires by @kentpitman
Electric (guitar) #music by @ksaj, community message from @TheGibson
Arrokoth #McClim Graphical adventure Game creation system #lisp
by five decade #gamedev veteran @mdhughes
#NUD #codegolf / adopting Arrokoth
@baruchel #lisp destructive permutation
#mastobook club - Snow crash
#livechat in #lambdaMOO
telnet lambda.moo.mud.org 8888
co guest
@join screwtape
#NUD #codegolf #programming #gamedev #commonlisp
If you'll forgive the daily throwaway challenges, here's another one. To quote from the link,:
```
'(a (b c) d (e f))
overwrite the b with the f.
```
My solution, featuring the new "apply nconc to register", &
```
(progn ^^ [ >> >> v [ & ^^ [ >> >> ] )
```
the ability to use & to create portals opens up a world of puzzles/golf challenges.
https://lispy-gopher-show.itch.io/lispmoo2/devlog/872152/nud-golf-2-more-nconc
I'll add @mdhughes' https://mdhughes.tech/software/arrokoth/ for the interface this week.
![** Challenge 2 :screwlisp:
*** Input
#+begin_src lisp :exports code
'(a (b c) d (e f))
#+end_src
overwrite the b with the f.
*** Screwtape's solution.
#+begin_src lisp :exports both :cache yes :results output verbatim
(progn
(require :nud)
(in-package :nud/user)
(setq *test2* '(a (b c) d (e f)))
(gird *test2*)
(progn ^^ [ >> >> v [ & ^^ [ >> >> ] )
(print *test2*))
#+end_src
#+RESULTS[2892b5078657512145cbba8e177e48f3b7dc43fd]:
:
: (#1=(#:CURSOR F) D E (F B . #1#))
Well, if you'll believe me that F behind the cursor used to be that b.](https://mastodon.sdf.org/system/media_attachments/files/113/864/565/408/903/752/original/6aea4d0bdc14efdd.png "** Challenge 2 :screwlisp:
*** Input
#+begin_src lisp :exports code
'(a (b c) d (e f))
#+end_src
overwrite the b with the f.
*** Screwtape's solution.
#+begin_src lisp :exports both :cache yes :results output verbatim
(progn
(require :nud)
(in-package :nud/user)
(setq *test2* '(a (b c) d (e f)))
(gird *test2*)
(progn ^^ [ >> >> v [ & ^^ [ >> >> ] )
(print *test2*))
#+end_src
#+RESULTS[2892b5078657512145cbba8e177e48f3b7dc43fd]:
:
: (#1=(#:CURSOR F) D E (F B . #1#))
Well, if you'll believe me that F behind the cursor used to be that b.")
