diff options
Diffstat (limited to 'report-repair/main.scm')
| -rwxr-xr-x | report-repair/main.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/report-repair/main.scm b/report-repair/main.scm index cdfed63..c6074ef 100755 --- a/report-repair/main.scm +++ b/report-repair/main.scm @@ -1,7 +1,4 @@ -#!/run/current-system/profile/bin/guile \ --e main -s -!# - +;; -*- compile-command: "guile -L . -e main -s main.scm 3 < input.txt"; -*- (use-modules (rr) ((ice-9 rdelim)) (ice-9 binary-ports)) @@ -15,5 +12,5 @@ (loop (string-append result line " ")))))) (define (main args) - (display (rr (stdin-to-str))) + (display (rr (stdin-to-str) (string->number (cadr args)))) (newline)) |