Исходное сообщение
"В NixOS обеспечена поддержка повторяемых сборок для iso-обра..." Отправлено Аноним84701, 21-Июн-21 17:20
>  А если здесь вместо файла stdin? Они же приводят решение на OCaml без повторного чтения >   let () = >      with_output_file "bench_baseline.txt" @@ fun chbase -> >      with_output_file "bench_staged.txt" @@ fun chstaged -> > >      for_each_line ~fname:"bench_result.txt" @@ fun l -> >      l |> cases [ >       optthen (strstr "baseline") (fun _ -> print ~ch:chbase [l]); >       optthen (strstr "staged")   (fun _ -> print ~ch:chstaged [l]); >       fun l -> Some (print_endline l)      (* default case *) >      ] >> (по ссылке) ... a lightweight and less idiosyncratic replacement for AWK ... Кхе. На "заменяемом" AWK: |awk '/baseline/{print $0 > "bench_baseline.txt";next} /staged/{print $0 >"staged.txt";next}{print $0}'

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> А если здесь вместо файла stdin? Они же приводят решение на OCaml без повторного чтения > [code] >> let () = >> with_output_file "bench_baseline.txt" @@ fun chbase -> >> with_output_file "bench_staged.txt" @@ fun chstaged -> >> >> for_each_line ~fname:"bench_result.txt" @@ fun l -> >> l |> cases [ >> optthen (strstr "baseline") (fun _ -> print ~ch:chbase [l]); >> optthen (strstr "staged") (fun _ -> print ~ch:chstaged [l]); >> fun l -> Some (print_endline l) (* default case *) >> ] > [/code] >>> (по ссылке) ... a lightweight and less idiosyncratic replacement for AWK ... > Кхе. На "заменяемом" AWK: > [code]|awk '/baseline/{print $0 > "bench_baseline.txt";next} /staged/{print $0 > >"staged.txt";next}{print $0}'[/code]
	Введите код, изображенный на картинке: