Skip to content

Instantly share code, notes, and snippets.

@englishm
Created June 10, 2013 01:36
Show Gist options
  • Save englishm/5746016 to your computer and use it in GitHub Desktop.
Save englishm/5746016 to your computer and use it in GitHub Desktop.
mfeathers' tweet
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment