mfeathers' tweet

gistfile1.txt

   tweet=: (($:@(<#[), (=#[), $:@(>#[)) ({~ ?@#)) ^: (1<#)
   load'~/user/trace.ijs'
   trace'(($:@(<#[), (=#[), $:@(>#[)) ({~ ?@#)) ^: (1<#) 1 2 5 3 4 0'
 --------------- 5 Trident ----
 1
 <
 #
 1 < #
 --------------- 8 Paren ------
 (
 1 < #
 )
 1 < #
 --------------- 4 Conj -------
 ?
 @
 #
 ?@#
 --------------- 3 Adverb -----
 {
 ~
 {~
 --------------- 6 Bident -----
 {~
 ?@#
 {~ ?@#
 --------------- 8 Paren ------
 (
 {~ ?@#
 )
 {~ ?@#
 --------------- 5 Trident ----
 >
 #
 [
 > # [
 --------------- 8 Paren ------
 (
 > # [
 )
 > # [
 --------------- 4 Conj -------
 $:
 @
 > # [
 $:@(> # [)
 --------------- 5 Trident ----
 =
 #
 [
 = # [
 --------------- 8 Paren ------
 (
 = # [
 )
 = # [
 --------------- 5 Trident ----
 = # [
 ,
 $:@(> # [)
 (= # [) , $:@(> # [)
 --------------- 5 Trident ----
 <
 #
 [
 < # [
 --------------- 8 Paren ------
 (
 < # [
 )
 < # [
 --------------- 4 Conj -------
 $:
 @
 < # [
 $:@(< # [)
 --------------- 5 Trident ----
 $:@(< # [)
 ,
 (= # [) , $:@(> # [)
 $:@(< # [) , (= # [) , $:@(> # [)
 --------------- 8 Paren ------
 (
 $:@(< # [) , (= # [) , $:@(> # [)
 )
 $:@(< # [) , (= # [) , $:@(> # [)
 --------------- 6 Bident -----
 $:@(< # [) , (= # [) , $:@(> # [)
 {~ ?@#
 ($:@(< # [) , (= # [) , $:@(> # [)) ({~ ?@#)
 --------------- 8 Paren ------
 (
 ($:@(< # [) , (= # [) , $:@(> # [)) ({~ ?@#)
 )
 ($:@(< # [) , (= # [) , $:@(> # [)) ({~ ?@#)
 --------------- 4 Conj -------
 ($:@(< # [) , (= # [) , $:@(> # [)) ({~ ?@#)
 ^:
 1 < #
 (($:@(< # [) , (= # [) , $:@(> # [)) ({~ ?@#))^:(1 < #)
 --------------- 0 Monad ------
 (($:@(< # [) , (= # [) , $:@(> # [)) ({~ ?@#))^:(1 < #)
 1 2 5 3 4 0
 0 1 2 3 4 5
 ==============================
0 1 2 3 4 5