Quickies

[categories] [index] [all (552)] [latest]

PostScript
  1. /x 1 def
    /y 2 def
    
    /=== {
        { =only ( ) =only } forall (\n) print
    } def
    
    [ [1] (asd) x y ] ===
    

    --nostringval-- asd 1 2

    /=== {
        {
            dup (%) 0 get eq {
                pop
            } {
                ( ) dup 0 4 -1 roll put
            } ifelse
            =only
        } forall
        (\n) print
    } def
    
    [3 4] y x (x: %, y: %, array: %) ===
    

    x: 1, y: 2, array: --nostringval--