Makefile that merge two videos vertically with FFmpeg.
- youtube-dl
- FFmpeg
- ffprobe
*.beam |
// slow pager | |
// show fullspeed duaring full_speed_period, then show with wait_per_line sleep | |
package main | |
import ( | |
"bufio" | |
"flag" | |
"fmt" | |
"os" |
*.beam | |
*~ |
include Math | |
def main | |
puts "6 digits" | |
check_range((100..999), 1000) | |
puts "10 digits" | |
check_range((10000..99999), 100000) | |
end |
#!/bin/sh | |
# calculate maximum drawdown. | |
awk ' | |
START {max=0;maxdrawdown=0} | |
max<$3 {max=$3;print "set max",$1,max} | |
{drawdown=max-$3} |
-module ( irrpas2 ). | |
-compile ( export_all ). | |
solve ( DataString ) -> | |
[ { Width, Height } | ConcatCells ] = parse_input_string ( DataString ), | |
TargetCellValueWithMemo = get_value ( Width - 1, Height - 1, ConcatCells, [] ), | |
get_right_two_digit ( element ( 1, TargetCellValueWithMemo ) ). | |
parse_input_string ( InputString ) -> | |
NumberStrings = string:tokens ( lists:delete ( $x, InputString ), ":," ), |
digraph irrpas { | |
start -> tokens [ label="Data" ]; | |
subgraph cluster_solve { | |
label="solve"; | |
tokens [ label="string:tokens\n':'で分ける", fontname="IPAexGothic" ]; | |
tokens -> parse_size [ label="SizeStr" ]; | |
tokens -> parse_concat_list [ label="ConcatListStr" ]; | |
parse_size [ label="parse_size\n文字列→サイズ", fontname="IPAexGothic" ]; | |
parse_size -> init_dep_map [ label="Size" ]; | |
parse_size -> get_renum_map [ label="Size" ]; |
USING: arrays generalizations kernel math | |
math.parser sequences sorting strings ; | |
IN: 18notfork | |
SYMBOL: o ! 客を表す記号 | |
SYMBOL: x ! 絶望的に長くかかる客を表す記号 | |
: throughput ( -- seq ) { 2 7 3 5 2 } ; ! 各レジの処理能力 | |
: shortest ( regi -- n ) ! 最も短いレジを探す とは |
USING: kernel sequences sequences.deep math math.order math.parser | |
arrays splitting assocs sorting ; | |
IN: 21lesson | |
! 希望リストから配属候補を求める | |
: wish-list>candidate ( wish-list -- candidate ) | |
{ 1 2 3 4 5 } swap [ | |
[ second first over = ] filter | |
[ first ] map swap drop | |
] curry map ; |