アレイ検討xなど[1 5 3 4]と番号nたとえば、2。すべての長さ-書くnスライディングサブアレイを：[1 5]、[5 3]、[3 4]。配列のミニマックスをスライディングブロックの最大値の最小値として定義します。それで、この場合5, 5, 4、それは最小であるでしょう、それは4です。
配列xと正の整数を指定すると、n上記で定義されたミニマックスを出力します。
配列xには正の整数のみが含まれます。nは常に少なくとも1、最大での長さになりxます。
計算は任意の手順で実行できますが、必ずしも上記で定義したとおりではありません。
コードゴルフ、最少バイトが勝ちます。
x、nその結果、
[1 5 3 4], 2 4
[1 2 3 4 5], 3 3
[1 1 1 1 5], 4 1
[5 42 3 23], 3 42
回答:
⌊/⌈/
これは、配列と整数を左右の引数として受け取る単項関数列です。
TryAPLで試してください。
2つの関数の列はatopで、右側の関数が最初に（両方の引数で）呼び出され、次に左側の関数が（その結果を唯一の引数として）呼び出されます。
モナドはf/単純に引数をで減らしますf。ただし、dyadicallyに呼び出された場合、f/n方向に縮小され、左引数としてスライスサイズを取ります。
⌊/⌈/ Monadic function. Right argument: A (array). Left argument: n (list)
⌈/ N-wise reduce A by maximum, using slices of length n.
⌊/ Reduce the maxima by minimum.
2 ⌈/ 1 2 3 4、の最大値を計算する(1 2) (2 3) (3 4)ため、を返します2 3 4。
⌊カウントする必要がありますか？1または2？
⌊し⌈ます。
hSmeSd.:QE
説明：
- autoassign Q = eval(input())
.:QE - sublists(Q, eval(input())) - all sublists of Q of length num
meSd - [sorted(d)[-1] for d in ^]
hS - sorted(^)[0]
フォームに入力を取ります list newline int
hSeCSR.:EE
説明：
.:EE - sublists(Q, eval(input())) - all sublists of Q of length num
SR - map(sorted, ^)
eC - transpose(^)[-1]
hS - sorted(^)[0]
SELECT MIN(m)FROM(SELECT MAX(a)OVER(ORDER BY i ROWS BETWEEN CURRENT ROW AND :2-1 FOLLOWING)m,SUM(1)OVER(ORDER BY i ROWS BETWEEN CURRENT ROW AND:2-1 FOLLOWING)c FROM(SELECT TRIM(COLUMN_VALUE)a,rownum i FROM XMLTABLE(('"'||REPLACE(:1,' ','","')||'"'))))WHERE:2=c;
ゴルフをしていない
SELECT MIN(m)
FROM (
SELECT MAX(a)OVER(ORDER BY i ROWS BETWEEN CURRENT ROW AND :2-1 FOLLOWING)m,
SUM(1)OVER(ORDER BY i ROWS BETWEEN CURRENT ROW AND :2-1 FOLLOWING)c
FROM (
SELECT TRIM(COLUMN_VALUE)a,rownum i
FROM XMLTABLE(('"'||REPLACE(:1,' ','","')||'"'))
)
)
WHERE :2=c;
YCX>X<
YC % Implicitly input array and number. Build a matrix with columns formed
% by sliding blocks of the array with size given by the number
X> % maximum of each column
X< % minimum of all maxima
ṡ»/€«/
ṡ»/€«/ Main link. Left input: A (list). Right input: n (integer)
ṡ Split A into overlapping slices of length n.
»/€ Reduce each slice by maximum.
«/ Reduce the maxima by minimum.
{@^a.rotor($^b=>1-$b)».max.min}my &minimax = {@^a.rotor($^b=>1-$b)».max.min}
say minimax [1,5,3,4], 2; # 4
say minimax [1,2,3,4,5], 3; # 3
say minimax [1,1,1,1,5], 4; # 1
say minimax [5,42,3,23], 3; # 42[:<./>./\
APLの回答に似ています。（最大）を右引数の（左引数）サブセットに>./\適用します>./。次に、で<./上限が設定されて[:いるため、その最小値を見つけます。
f =: [:<./>./\
2 f 1 5 3 4
4
3 f 1 2 3 4 5
3
3 f 1 1 1 1 5
1
3 f 5 42 3 23
42
x=>n=>-M(...x.slice(n-1).map((_,i)=>-M(...x.slice(i,i+n)))),M=Math.max
curryingを使用すると、この関数は前の回答から2バイトを節約します。
f=x=>n=>-M(...x.slice(n-1).map((_,i)=>-M(...x.slice(i,i+n)))),M=Math.max
a=[[[1,5,3,4],2,4],[[1,2,3,4,5],3,3],[[1,1,1,1,5],4,1],[[5,42,3,23],3,42]]
document.write(`<pre>${a.map(r=>`${f(r[0])(r[1])==r[2]?'PASS':'FAIL'} ${r[1]}=>${r[2]}`).join`\n`}`)Min@BlockMap[Max,##,1]&
テストケース
%[{1,2,3,4,5},3]
(* 3 *)
int c(int[]x,int n){int i=-1,j,q,m=0;for(;i++<x.length-n;m=m<1|q<m?q:m)for(q=x[i],j=1;j<n;j++)q=x[i+j]>q?x[i+j]:q;return m;}
未ゴルフ＆テストコード：
class M{
static int c(int[] x, int n){
int i = -1,
j,
q,
m = 0;
for(; i++ < x.length - n; m = m < 1 | q < m
? q
: m){
for(q = x[i], j = 1; j < n; j++){
q = x[i+j] > q
? x[i+j]
: q;
}
}
return m;
}
public static void main(String[] a){
System.out.println(c(new int[]{ 1, 5, 3, 4 }, 2));
System.out.println(c(new int[]{ 1, 2, 3, 4, 5 }, 3));
System.out.println(c(new int[]{ 1, 1, 1, 1, 5 }, 4));
System.out.println(c(new int[]{ 5, 42, 3, 23 }, 3));
}
}
出力：
4
3
1
42