1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
"1abc25hriwm4" / { str β int } / ( (('0'β₯)πΊ) (('9'β€)πΊ)&β§ π0 1Β―π β¬10Γ+β¬ ) β l (^0<Β―π¬) β β / [x] -> [x] int / (^(1)πΊ+βοΈ) β 'π' / run function on all values, pushing to the stack / βοΈline / reduce the stack / +βοΈ ("\n"β’)π©βπ©βπ§βπ§ lπΊ (πΆ|π³πΏ(-β)πΊ+βοΈ) β a ( 0 1 π < β s 2πͺ (s-(π-)π (β₯1)(β€3)&sβ§!)πΊ+βοΈ0β‘ ) β 'd2p1' (π1+β«( / array, int / ^π½ 'd2p1')πΊ+βοΈ0β’) β 'd2p2'