変数/宣言

特別な理由がない限り、変数名は1文字にします。

Perl

$に続いて変数名を書くとスカラー変数になります。

$a              # aという名前の変数です。
${a}            # こうも書けます。
${'a'}          # ${式}でもよいです。
${print'!';'a'} # 余計なこともできます。
$b='a';${$b}    # $bという名前の変数です。$bの値が'a'なので$aです。
$b='a';$$b      # この場合は{}を省略できます。

変数を宣言せずに使えます。宣言しなかった場合、グローバル変数になります。スコープを制限したいときには宣言が必要です。

宣言したかどうかにかかわらず、変数の初期値はundefです。これは、数値として評価すれば0、文字列として評価すれば空文字列、真偽値として評価すれば偽です。

@に続いて変数名を書くと配列変数になります。配列も宣言せずに使えます。初期値は空リストです。

@a              # aという名前の配列です。
@{a}            # こうも書けます。
@{'a'}          # @{式}でもよいです。
@{print'!';'a'} # 余計なこともできます。
$b='a';@{$b}    # $bという名前の配列です。$bの値が'a'なので@aです。
$b='a';@$b      # この場合は{}を省略できます。

スカラー変数$aと配列変数@aは異なるものなので、1つのコード内で両方を使うことができます。

配列の1つの要素にアクセスするには$a[0]のように書きます。これは配列変数@aの0番目の要素であって、スカラー変数の$aとは無関係です。[]内はスカラーコンテキストで、整数値でないものは整数値に変換されます。

配列の複数の要素にアクセスするには@a[0,1,2]のように書きます。[]内はリストコンテキストで、整数値でないものは整数値に変換されます。

""で囲われた文字列では変数展開されます。配列の先頭要素を数値として使う際に、これを利用して縮めることができます。

@a=(3,1,4,1,5);print$a[0]+5
@a=(3,1,4,1,5);print"@a"+5

"@a"は変数展開されて"3 1 4 1 5"という文字列になります。この文字列は数値として評価すると3になります。

特殊変数

特殊変数と呼ばれるものが多数あり、それらを使いこなすのはゴルフでは重要です。ゴルフでよく使う特殊変数は下表の通りです。

ここに載っていない情報を詳細に知りたければperldoc.jpなどを参照してください。

C

// (1)
main(){int a=0;...
a;main(){...

// (2)
int f(int a,int b){...
f(a,b){...

// (3)
char a[99],*b;
char*b,a[99];

(1)グローバル変数は0で初期化されます。int型のグローバル変数は宣言する際に型を省略できます。

(2)int型を返す関数の返り値の型は省略できます。引数が全てint型であるような関数の引数の型は省略できます。

(3)ポインタ変数とポインタでない変数を宣言する場合はポインタ変数を先に書いた方が短いです。

分岐

通常のプログラミングでは分岐といえばif文ないしif-else文を使うのが常識ですが、ゴルフでは?:,&&,||を使うのが常識です（言語によっては他の分岐方法もあります）。

A?B:Cは、Aが真のときBが、Aが偽のときCが実行されるので、if-else文の代わりになります。

A&&Bは、Aが真のときに限り、Bが実行されるので、if文の代わりになります。
A&&Bの真偽値を知りたいのではなく、Aの真偽値によってBが実行されるかどうかが決まる、ということです。
これは短絡評価と呼ばれる性質を利用したものです。

A||Bは、Aが偽のときに限り、Bが実行されるので、これもif文の代わりになります。

分岐する際には比較演算をすることが多いですが、そのときに、真偽を反転させるようにすると縮む場合があります。
例えば、if(a<=b)Cはa<=b&&Cと書けて、真偽を反転することで、a>b||Cと書けます（同様に、a<=b?C:Dもa>b?D:Cと書けます）。

a<=b  →  a>b
a>=b  →  a<b
a==b  →  a-b  （Ruby以外の多くの言語では数値の真偽値は0なら偽、0でないなら真）

整数変数と定数の比較でも同様に長い演算子の代わりに短い演算子を使うことで縮む場合があります。

a<=5  →  a<6
a>=5  →  a>4

比較演算は分岐の条件として使われることが多いですが、比較によって得られた真偽値を整数値として使うこともあります（Ruby以外）。
例えばx+=a<=bはa>b||++xよりも短いです。

ループ

C

Cのループ構文にはwhileとforがありますが、forの方が短い（または同じ）です。次の3つのコードは基本的に同じです（A,B,C,Dは何らかの式とします）。

A;while(B){C;D;}
A;while(B)C,D;
for(A;B;D)C;

whileの繰り返す部分が単文のとき、ブロック{}は省略できます。これはforやifでも同様です。;を,に変えることで、通常は複数の文に分けて書くような部分を単文にすることができます。

forのA,C,Dには何を書いてもよいので、whileで書けるものは必ずforでも書けます。Dにインクリメントやデクリメント以外の式を書くこともできます。Bの部分で,を使うこともあります。

型変換

Perl

Perlでは演算子によって項の解釈が定まることがほとんどなので、明示的に型変換する必要がある場面は他の言語に比べれば少ないものの、必要な場合もあります。また、Perlにはスカラーコンテキストとリストコンテキストという概念があり、これの変換についてもここで扱います。

次のコードを見てください。

# (1)
print<>+0^<>+0
print<>+0^<>

# (2)
<>;print 0+grep$_>3,<>
<>;print~~grep$_>3,<>

# (3)
@a=map<>.'',1..<>
@a=map~~<>,1..<>

# (4)
print int<>/2
print<>/2|0
print<>>>1

# (5)
$x=<>+0
$x+=<>
$%=<>

(1)は、入力の1行目の値と2行目の値をxorした結果を表示するコードです。Perlの^には「非負整数同士での演算」「文字列同士での演算」の2種類があり、少なくとも一方が文字列（またはundef）でない場合は非負整数同士での演算になるので、0を足すことで数値に変換できます。少なくとも一方が文字列でなくなればよいので、1行目を型変換した場合、2行目に対しては明示的に型変換する必要はありません。

(2)は、入力の2行目以降に与えられた値のうち、3より大きいものの個数を表示するコードです。printの引数はリストコンテキストで評価されるので、print grepとしてしまうと、条件に当てはまる要素のリストを表示してしまいます。要素数を知るにはスカラーコンテキストに変換すればよいので、0を足すのでもよいですが、ビット反転~を2回使ったほうが短いです。

(3)は、入力の1行目に要素数Nが与えられて、そこからN行にわたって与えられる文字列を@aに代入するコードです。mapの第1引数はリストコンテキストで評価されるので、map<>,1..<>としてしまうと、<>が残りの入力の文字列のリストになってしまいます。スカラーコンテキストに変換すればよいので、空文字列を連結するのでもよいですが、文字列のビット反転~を2回使ったほうが短いです。

(4)は、入力の1行目の値を2で割った結果（切り捨て）を表示するコードです。Perlの割り算は整数同士の演算であっても結果が実数になる場合があります。実数を整数に変換するにはintを使います。非負実数を非負整数に変換する場合は0との論理和|をとるほうが短いです。2の整数乗で割って切り捨てをする場合は右シフト>>を使ったほうが短い場合があります。

(5)は、入力の1行目の値を代入するコードです。未定義の変数に対して、文字列を数値に変換して代入したい場合は、+=を使うと短く書けます。Perlには特殊変数というものがあります。一部の特殊変数は型が決まっていて、代入すると強制的に型変換されます。