あなたの目的は、入力を受け取り、時間を連鎖させたときにN「順次乗算」を実行するプログラムを作成することです。逐次乗算とは何ですか？このaように定義されたシードを持つシーケンスです：
f(0) = a
f(n+1) = f(n)*(f(n)-1)
だから、みましょうa = 5。このように、f(0) = 5、f(1) = f(0)*(f(0)-1) = 5*4 = 20、とf(2) = f(1)*(f(1)-1) = 20*19 = 380。
あなたのプログラムであった場合ABC、その後、ABC入力すべきであるaと出力をf(1)。プログラムABCABCはf(2)などを出力する必要があります。プログラムシリーズは入力を1回のみ、出力を1回のみにする必要があります。
これはコードゴルフなので、バイト単位の最短プログラムが勝ちです。標準的な抜け穴は禁止されています。
回答:
×’$
×’$ Main link (or part thereof). Argument (initially input): n
’ Compute n - 1.
× Multiply n by (n - 1).
$ Combine the previous two atoms into a monadic quicklink.
スニペットを繰り返すN回は実行されますN所望の出力が得られ、回。
,;D*
説明：
,;D*
, push input (NOP once input is exhausted)
;D dupe and push n-1
* multiply
(implicit output at EOF)
DennisのJelly answerのように、このプログラムを繰り返すnと、実行n時間が長くなります。これは、命令型スタックベース言語の多くの利点の1つです。
tq*
オンラインで試すことができます！基本的に真剣に答え、ゼリーの答えに似ています。まず、スタックの最上部を複製します（スタックが空のときに初めて入力を取得します）。スタックの最上部をデクリメントし、2つの要素を乗算して次の入力または結果を提供します。
+1if 0else 0
try:n
except:n=int(input())
n*=n-1
print(n)出力を上書きするトリックを使用しないソリューションが必要でした。末尾に改行がないことが重要です。
ifand にヒットすると数値の解析を停止しますelse。
r~_(*
r e# Read a whitespace-separated token from STDIN.
e# This pushes the input (when called for the first time) or an empty string.
~ e# Evaluate.
e# This turns the input into an integer or discards an empty string.
_ e# Copy the top of the stack.
( e# Decrement.
* e# Multiply.
_▼•=_
私が怠けていて「_への割り当て」を実装していない場合は4バイトになります...
_▼•=_
_ push _ (input var)
▼ decrement last used var (_)
• multiply, since it is off by one it auto-adds _ to the arg list
=_ assign result to _
コード：
D<*
説明：
D # Duplicate top of the stack, or input when empty
< # Decrement on top item
* # Multiply
~.(*`
脱ゴルフしてコメントした：
~ # Eval the input to turn it from a string into a number.
. # Duplicate the number.
( # Decrement one of the copies by one.
* # Multiply the copies together.
` # Un-eval the number, turning it back into a string.
GolfScriptインタープリターは、入力を自動的に読み取り、スタックに配置しますが、数値としてではなく、ストリングとして配置します。したがって、で入力を数値に変換し、~後でで再度文字列化する必要があり`ます。最後に、インタプリタは文字列化された数値をスタックに自動的に出力します。
（今、課題が反復である場合、f(n+1) = f(n)*(-f(n)-1)4バイトでそれを行うことができました。それが~.~*どのように、そしてなぜ動作するかを理解することは演習として残されます。）
jzC:t*!
これは、その仕組みですj。数値入力を受け取ります。z暗黙的な印刷をアクティブにします。C新しいリンクを開始します。:スタック上の値を複製し、tデクリメントして、を残し[a a-1]ます。次に、から取得[a*a-a]し*ます。!次のコマンドをスキップします。EOFでは、何もしません。連鎖すると、入力コマンドがスキップされ、プロセスが再開されます。
ïׇï;
これを本当に説明する必要がありますか？まあ、ここに行く...
基本的input*=--input;にJSで評価します。
(*)=<<pred$
使用例
Prelude> (*)=<<pred$5
20
Prelude> (*)=<<pred$(*)=<<pred$5
380
Prelude> (*)=<<pred$(*)=<<pred$(*)=<<pred$5
144020
たぶんこれは適切な機能ではありません。あなたがnitpickingしている場合(*)=<<pred$id、14バイトで（<-最後にスペースがあります）で行くことができます。
編集：@Zgarbは関数モナドを使用して関数を書き換え、3バイトを保存しました。ありがとう！
(*)=<<pred$3バイト節約します。また、これは実際には関数を定義するものではなく、入力値はその直後に配置する必要があることに注意してください。
idすると、適切な機能になります。答えにメモを入れました。
ユーザーの観点から見ると、Mathcadは事実上2Dホワイトボードであり、式は左から右、上から下に評価されます。Mathcadは従来の「テキスト」入力をサポートしていませんが、代わりにテキストと特別なキー/ツールバー/メニュー項目の組み合わせを使用して、式、テキスト、プロットまたはコンポーネントを挿入します。たとえば、「：」と入力して定義演算子を入力し（画面に「：=」と表示）、「[」と入力して配列インデックスを入力し、「ctl-]」と入力してwhileループ演算子を入力します（制御条件と1つのボディ式）。上の画像に表示されているのは、ユーザーインターフェイスに「入力済み」として表示されているものです。
ゴルフを目的とする場合、「バイト」カウントは、式を入力するために必要なキーボード操作と同等の数です。
（「バイト」等価性の観点から）私がさらに確信していないことの1つは、新しい領域の作成をカウントする方法です（たとえば、a：= 5またはk：= 0..n-1）。新しい領域への各移動は、改行と等しいため、1バイトであると見なしました（実際には、マウスを使用して領域が必要な場所をクリックします）。
コメントは含めずにアクティブなステートメントのみを含め、aとnの入力にはそれぞれ2バイトを含めましたが、値自体は含めません（例では5と7）。
このチャレンジはHaskellには馴染みがありません。ただし、入力が単項で、コードがGHCIで実行される場合、次のように動作します。
(\x->if odd x then let y=until((>x).(10^))(+1)0 in y*(y-1)else x*(x-1))$
単項は常に奇数であるため、最初のアプリケーションは10進数に変換されます。x*(x-1)でも、それが返されますので、それ以外の場合は常にx*(x-1)、どこx入力されています。Haskellは強く型付けされており、「特別な」記号を次のように呼び出すことはできないため&1、グローバル変数またはさらに奇妙な入力フォームを使用しない限り、これがHaskellでこれを完了する唯一の方法であると信じています。
両方のバージョンには、最後に重要な改行があります。
#ifndef M
#define M(a,b)a##b
#define W(z,x)M(z,x)
#define B int W(m,__LINE__)=x++
#include<iostream>
int x,n;int main(){for(std::cin>>n;x--;)n*=n-1;std::cout<<n;}
#endif
B;
もう少しC ++ ish：
#ifndef B
#define B template
#include<iostream>
int x,n;B<int N>struct A{static int i;};int main(){for(std::cin>>n;x--;)n*=n-1;std::cout<<n;}
#endif
B<>int A<__LINE__>::i=x++;