#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.](/proxy/post_attachment/593161/dbf6a867b2.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.")
