forked from MightyPork/crsn
add reverse example
This commit is contained in:
@@ -0,0 +1,9 @@
|
|||||||
|
(
|
||||||
|
(mkbf r7)
|
||||||
|
(:r)(ld r0 @stdin)
|
||||||
|
(cmp r0 '\n' (eq? (j :q)))
|
||||||
|
(bfpush @r7 r0)
|
||||||
|
(j :r)
|
||||||
|
(:q)(bfpop @stdout @r7 (nem? (j :q)))
|
||||||
|
(ld @stdout '\n')
|
||||||
|
)
|
||||||
Reference in New Issue
Block a user