Diffstat (limited to 'stackd')
| -rw-r--r-- | stackd | 43 |
1 files changed, 23 insertions, 20 deletions
@@ -1,26 +1,29 @@ "1abc25hriwm4" -// usage: 0 π’ Ξ»(<5) Ξ»(1+) π¬βοΈ -π¬ β Ξ» ( - / evaluate the condition / - Ξ»(π’πͺ£βοΈ)ββ - π ( - / evaluate the body / - π’βοΈ - / recurse / - π¬βοΈ - ) -) -// { str β int } -line β Ξ» ( - '0'>π'9'<π - '9'- - β¬
β‘π΄ - 10Γ+ -) +/ { str β int } / +( + (('0'β₯)πΊ) + (('9'β€)πΊ)&β§ + π0 1Β―π + β¬10Γ+β¬ +) β l + +(^0<Β―π¬) β β + +/ [x] -> [x] int / +(^(1)πΊ+βοΈ) β 'π' -π’β’'\n'π§ / 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' |