Paste: quotations

Author: inforichland
Mode: factor
Date: Tue, 1 Sep 2009 02:26:49
Plain Text | 
( scratchpad ) "1 [2 3 [4] 5] " eval
( scratchpad ) joy get dstack>> .
T{ cons
    { car
        T{ joy-cons
            { car T{ ast-number { num 5 } } }
            { cdr
                T{ joy-cons
                    { car
                        T{ joy-cons
                            { car T{ ast-number { num 4 } } }
                            { cdr +nil+ }
                        }
                    }
                    { cdr
                        T{ joy-cons
                            { car T{ ast-number { num 3 } } }
                            { cdr
                                T{ joy-cons
                                    { car
                                        T{ ast-number
                                            { num 2 }
                                        }
                                    }
                                    { cdr +nil+ }
                                }
                            }
                        }
                    }
                }
            }
        }
    }
    { cdr T{ cons { car 1 } { cdr +nil+ } } }
}

New Annotation

Summary:
Author:
Mode:
Body: