File: nest.azm

package info (click to toggle)
zoem 21-341-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, trixie
  • size: 1,980 kB
  • sloc: ansic: 9,386; sh: 1,113; makefile: 105
file content (17 lines) | stat: -rw-r--r-- 329 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 

\: Some more anon/nesting/delay arithmetic, not very exciting.
\: See also loop.azm.
\: Note that inspect#4 is a beta-stage primitive.

\'set{data}{{a-b}{c-d}{e-f}}

\'apply{
   _#1{
      \!{\'inspect{posix}{(.)-(.)}{_#2\!{{\2#\1\@{\N}}}}}{\1}
   }
}{
   \data
}

\'inspect{posix,vararg}{(.)-(.)}{_#2\!{{\2#\1\@{\N}}}}{\data}