Numbers with equal rises and falls: Difference between revisions

Line 1,076:
NB. y A block of numbers all with the same digit count
NB. Return those that pass the test
y #~ (s =: (+/"1) 2 </\"1 f) = t =: (+/"1) 2 >/\"1 f =: "."1"0 ": ,. y
)