For most languages, I will have a "shebang" line at the top.
The shebang could be #!/usr/bin/env python3, but it could just as easily be -- !/usr/bin/env runhaskell or // !cargo run
This function reads everthing after the ! and uses that command to run the curent file
function! RunBang()
if (&modified)
:write
| sub infix:<p>($a, $b) is assoc<left> { $a + $b } | |
| sub infix:<t>($a, $b) is assoc<left> { $a * $b } | |
| for $=finish.lines -> $line { | |
| say $line.trans('+*' => 'pt').&EVAL; | |
| } | |
| =finish | |
| 2 * 3 + (4 * 5) |
| Parse =. (' ' joinstring ])@((3 1 0 { ])`(6 4 1 { ])@.(5 < #@]))@;: | |
| <@Parse;._2 'x-' rplc~ fread 'input' | |
| NB. or | |
| Parse =. (' ' joinstring |.@}. , {.)@('rect|row|column|\d+'&rxall) | |
| <@Parse"1 'm' fread 'input' |
Defined like so
ts =: {{
echo < 'timespacex * ', ": x
result =. x&{{ y ; (8!:0) (x, 1) * x timespacex y }}@> cutopen y
echo ,. ('expr';'time';'space') , result
}}| Parse =. +/\@;@(<@(".@}. # 0j1 ^ 'RDLU' i. {.);._2)@,&',' | |
| w =. Parse;._2 fread 'input' | |
| echo <./ +/@:|@+. isects =. (e. # [)/ w | |
| echo <./ +/ >: i.&isects"1 w |
| 0 1 2 3 0 1 2 3 0 1 | |
| == | |
| 1 0 3 2 1 0 3 2 1 0 | |
| == | |
| MNOP | |
| IJKL | |
| EFGH | |
| ABCD | |
| == | |
| PONM |
| #!/usr/bin/env raku | |
| use Terminal::Print; | |
| use Terminal::Print::RawInput; | |
| use Terminal::ANSIColor; | |
| use Point; | |
| my constant COLS = 22; | |
| my constant ROWS = 22; |
| {elems => 24, rank => 3, shape => (2 3 4), type => Array} | |
| ┌─ | |
| ╎ 0 1 2 3 | |
| 4 5 6 7 | |
| 8 9 10 11 | |
| 12 13 14 15 | |
| 16 17 18 19 | |
| 0 1 2 3 |
NB. === Advent of Code [2022] ===
NB. --- Day 10: Cathode-Ray Tube ---
addx =. noop =. 0
s =. +/\ 1, ".@> (LF,' ') cutopen fread 'input'
echo (20 + 40 * i. 6) +/@([ * ] {~ <:@[) s
echo _40 ({&' #')\ 1 >: | (] -~ 40 | i.@#) s