// predicates ; zero? dup 0 ~ swap ^: 0 swap _in | ; // joy: null? ; one? { [a] a @: [a [0 1] _in] [a #: 2 <] if } ; // joy: small? ; false? dup 0 ~ swap #: ~: | ; ; true? false? ~: ; ; vector? 4:: 0 < ; ; int? 4:: 1 = ; ; float? 4:: 2 = ; ; char? 4:: 3 = ; ; sym? 4:: 4 = ; ; dict? 4:: 5 = ; ; null? 4:: 6 = ; ; function? 4:: 7 = ; ; list? 4:: 0 = ; ; Int? 4:: -1 = ; ; Float? 4:: -2 = ; ; Char? 4:: -3 = ; ; Sym? 4:: -4 = ;