Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,7 @@
|
|||
Lbl INSERT
|
||||
{r₁+2}ʳ→{r₂+2}ʳ
|
||||
r₁→{r₂+4}ʳ
|
||||
r₂→{{r₂+2}ʳ+4}ʳ
|
||||
r₂→{r₁+2}ʳ
|
||||
r₁
|
||||
Return
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
proc insertAfter[T](l: var List[T], r, n: Node[T]) =
|
||||
n.prev = r
|
||||
n.next = r.next
|
||||
n.next.prev = n
|
||||
r.next = n
|
||||
if r == l.tail: l.tail = n
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
: test // ( -- aDList )
|
||||
| dl |
|
||||
DList new ->dl
|
||||
dl insertFront("A")
|
||||
dl insertBack("B")
|
||||
dl head insertAfter(DNode new("C", null , null))
|
||||
dl ;
|
||||
Loading…
Add table
Add a link
Reference in a new issue