ジョー、5 3バイト(-t
フラグの場合は+2または+3 )
まあ、どうやら私はジョーの可能性をフルに活用しなかったようだ。これは、最初にこれを投稿したときに可能だった。
\AR
ここでR
は、0〜nの範囲を排他的に指定します。次に\A
、連続するプレフィックスを取得します(A
恒等関数です)。例:
-t
フラグ(注:これでもフラグなしで今標準出力されます):
(\AR)5
0
0 1
0 1 2
0 1 2 3
0 1 2 3 4
\AR5
0
0 1
0 1 2
0 1 2 3
0 1 2 3 4
\AR2
0
0 1
\AR1
0
\AR0
それなしで:
\AR5
[[0], [0, 1], [0, 1, 2], [0, 1, 2, 3], [0, 1, 2, 3, 4]]
(\AR)5
[[0], [0, 1], [0, 1, 2], [0, 1, 2, 3], [0, 1, 2, 3, 4]]
\AR2
[[0], [0, 1]]
\AR1
[[0]]
\AR0
[]
ルールが少し変わった。私の古いコードはN = 0で正しく動作しませんでした。また、出力は単なるネストされたリストである-t
可能性があるため、ドロップできます。
1R1+R
ここで、Rn
0〜nの範囲を排他的に指定します。0を指定すると、空のリストが返されます。 1+
その範囲のすべての要素に1を追加します。1R
値を1〜xの範囲にマッピングします。空のliatsは、マップされると、空のリストを返します。
出力例:
1R1+R0
[]
1R1+R5
[[1], [1, 2], [1, 2, 3], [1, 2, 3, 4], [1, 2, 3, 4, 5]]
更新:何かに気づきました。この関数は、ランク0の要素に自動的にマッピングされます。次の例は-t
フラグ付きで実行されます。
1R1+R3 5 8
1
1 2
1 2 3
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
1 2 3 4 5 6
1 2 3 4 5 6 7
1 2 3 4 5 6 7 8
古い:5バイト(-t
フラグ付き)
1R1R
これは、数値を受け取り、1〜N(1Rn
)のリストを作成し、それらの値を前の範囲にマッピングして、範囲1〜Nの各アイテムに1〜xの範囲を与える匿名関数です。
この-t
フラグは、出力をJのようなテーブルとして提供します。
1R1R5
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
注:言語は非常に新しく完全ではありませんが、この課題の前に最新バージョンがリリースされました。