写真のような標準の組み合わせロックを考えてみましょう。ロックを解除する方法は、組み合わせ行のコードの4つの数字を揃えることです。長年の忠実なサービスの後、あなたはロック工場から解雇され、ロックを送り出す前にジャムをしないことで正確な復geを決定しました。

また、他の行の数字の順序を確認することで、組み合わせ行にある数字を決定することができることを知っています（したがって、ロックを解除する組み合わせがあります）。

ロックのすべての行に、組み合わせ行（ロックを解除する行）の行0から行9までの番号が与えられている場合。たとえば、行4の番号がの場合、5336ロックを解除する組み合わせはになります1992。

残念ながら、ロックはすでにパッケージ化されており、各ロックの表示が不明瞭になっているため、ロックの異なる行の数字しか見ることができません。

チャレンジ

整数の最初の桁が行番号を表し、2番目の桁がその行に表示される番号を表す4桁の数字が与えられたら、ロックへの組み合わせを計算します。たとえば、次を入力した場合：

57 23 99 45

次に、出力する必要があります：

2101

または

25 78 63 15

そして

3174

入力は常に `25 64 72 18の形式の4つの正の整数であると仮定します。

これはcode-golfであるため、バイト数の最も短いプログラムが優先されます。

また、これは私の最初の質問ですので、フィードバックを歓迎します。

CJam、9 8バイト

ea9fbAf%

数字のペアをコマンドライン引数として読み取ります。するには、オンラインでのコードを試してみてください、変更をeaするためにlS/シミュレートさSTDINからの読み取りに。

実行例

$ cjam <(echo ea9fbAf%) 57 23 99 45; echo
2101
$ cjam <(echo ea9fbAf%) 25 78 63 15; echo
3174

使い方

数字dの文字コードは48 + dです。したがって、2桁の文字列xyを考えると、基数9の数値は9 *（48 + x）+（48 + y）= 10 *（48 + x）+ y-x≡y-x（mod 10）になります。

ea       " Push the array of command-line arguments.                                      ";
  9fb    " Mapped base 9 conversion; replace each string 'xy' with (9 * ord(x) + ord(y)). ";
     Af% " Take the results modulo 10.                                                    ";

CJam、13 12 11文字

user23013のおかげで、11文字になりました:)

4{Ar:--A%}*

説明：

4{       }*     "Run the code block 4 times";
   r            "Read the next input token (whitespace separated)";
    :-          "Subtract 2nd number from the first treating r as a 2 numbered string";
  A   -         "Subtract the result of above from 10";
       A%       "Take modulus of 10 and store it on stack";

オンラインで試す

もっとゴルフができることを知っています。しかし、これはCJamでの私の最初の実際の試みであり、経験によって制限されています:)

あるいは、1つの追加文字で同じことを行う他の方法：

l~]{_A/-A%}/     // My previous solution

または

4{ri_A/-A%}*     // As pointed out by Ingo

または

ea{i_A/-A%}/     // If input is passed through command line

Golfscript（14 13）

こちらからオンラインでお試しください

オプティマイザーのソリューションとほとんど同じですが、言語が異なります。問題はかなり単純なので、別の方法でアプローチすることは困難です。そのため、タイは間違いなくオプティマイザーに行きます。

~]{.10:^/-^%}/

同じバイト数でできること

~]{.10/- 10%}/

GNU dc、14バイト

@Dennis の賢いベース9トリックを借りる：

9i[?A%nd]dxxxx

STDINから読み取られた入力整数。1行に1つ。

説明：

9i                # Set input radix to 9
  [     ]         # push a macro, defined thus:
   ?              #   read number from STDIN and push
    A             #   push literal 10
     %            #   calculate number mod 10
      n           #   print, with no newline
       d          #   duplicate macro
         d        # duplicate macro
          xxxx    # execute the macro 4 times    

出力：

$ for i in 57 23 99 45; do echo $i; done | dc ./combolock.dc
2101$ 
$ for i in 25 78 63 15; do echo $i; done | dc ./combolock.dc
3174$ 
$ 

前の回答、18バイト：

私はこれで「ゴルフ」言語に近づくことができると思っていたので（そうしなかった）：

[A?A~--A%n]dddxxxx

C 64 63 56または61

入力をファイルからパイプできる場合

main(a){while(scanf("%d",&a)>0)putchar(48+(a-a/10)%10);}

入力を標準入力に入力する必要がある場合

i;main(a){for(;i++-4;putchar(48+(a-a/10)%10))scanf("%d",&a);}

ループ内の4つの数値を読み取り、値から最初の数字を減算して結果を10を法として出力することにより、それぞれを処理します。

以下のさまざまなコメントと、printfの代わりにputcharを使用したことによる節約

Python 3、64

簡単です。

print(''.join([(i-i//10)%10 for i in map(int,input().split())]))

たとえば、[2, 1, 0, 1]代わりに（46）印刷することが許可されている場合は、短くすることができます：

print([i%10-i//10 for i in map(int,input().split())])

C、92

#define a(n) ,(10+v[n][1]-*v[n])%10
main(int c,char**v){printf("%d%d%d%d"a(1)a(2)a(3)a(4));}

コマンドラインからの入力。各引数の最初のASCIIコードを2番目の引数から減算し、10を加算して10を法とします。

コンマなしprintfで4つ%のsを記述したのはこれが初めてだと思います（コンマはにあります #define.）

Java-203バイト

そこからといっていたJavaエントリであることを、私はチャンス（初投稿）をゴルフこのコードを与えるために素敵な機会を見ました。

class M{public static void main(String[] a){String r="";for(int i=0;i<4;i++){int l=Byte.valueOf(a[i].substring(1));int f=Byte.valueOf(a[i].substring(0,1));r+=(l-f<0)?l-f+10:l-f;}System.out.print(r);}}

改善の余地があるなら、私はそれらについて知ってうれしいです;-)

ルア-46文字

while''do a,b=io.read(1,1,1)print((b-a)%10)end

一度に3文字を読みます（最後にスペースを入力するという小さな慈悲を与えてくれます）。aとbは文字列ですが... ba MAGICALUALYは健康な赤ちゃんの整数を想像できます。印刷中に折り返しチェックを行います。

JavaScript ES6 – 53 43バイト

f=n=>n.replace(/.. ?/g,a=>(1+a[1]-a[0])%10)

かなり簡単な関数で、正規表現を使用して数値を取得します。http://jsfiddle.net/efc93986/1/で試してください。関数が許可されていない場合、52バイトのスタンドアロンプ​​ログラム：

alert(prompt().replace(/.. ?/g,a=>(1+a[1]-a[0])%10))

現在ES6はFirefoxでのみ動作するため、次のコードは最新のブラウザーで70バイトで動作します。

alert(prompt().replace(/.. ?/g,function(a){return(1+a[1]-a[0])%10}))

Python 2-33バイト

for i in input():print(i-i/10)%10

コンマ区切りのユーザー入力を受け入れます。例：入力：

29,26, 31, 88

出力：

7
4
8
0

出力が例と正確に一致する必要がある場合、それははるかに長くなります。47バイト：

print"%d"*4%tuple((i-i/10)%10 for i in input())

APL、14

10|{--/⍎¨⍕⍵}¨⎕

説明
⎕は画面から入力します。スペースで区切られた値は、配列として解析されます。
{...}¨各番号について、関数に送ります。
⍎¨⍕⍵引数を取り、その数字の配列を作成します。
--/10を引いた単位を計算します。
10|mod 10。

J- 20 15

動詞以外の形式（関数定義ではなくステートメントとして）は、5文字短くなります。

10|-~/|:10#.inv

素敵な列車である動詞形式：

10|[:-~/[:|:10#.inv]

入力例で使用されるこの動詞：

   10|-~/|:10#.inv 57 23 99 45
2 1 0 1
   10|-~/|:10#.inv 25 78 63 15
3 1 7 4

rotd =: 10|[:-~/[:|:10#.inv] NB. verb form

   rotd 25 78 63 15
3 1 7 4
   rotd 57 23 99 45
2 1 0 1

ハスケル60 58

main=interact$show.map((\x->mod(x-x`div`10)10).read).words

Haskellゴルフの本当の宿敵である1文字の数字。

Perl：38 40

print abs($_-int$_/10)%10for split" ",<>

出力：

% perl code.pl
57 23 99 45
2101

25 78 63 15                                     
3174

ルビー、35バイト

$*.map{|n|a,b=n.bytes;$><<(b-a)%10}

説明

入力はコマンドライン引数として取得されます。String#bytes整数の配列（ASCII文字コード）を返します。重要なのは最後の文字コードと最初の文字コードの違いだけであり、整数自体は重要ではありません。

C＃およびLinqPad：104

Util.ReadLine<string>("").Split(' ').Select(s =>(s[1]-s[0])).Aggregate("",(r,a)=>r+(a<0?10+a:a)).Dump();

C ++ 118

int main()
{
int a,b,c;
for(int i=0; i<4; i++)
{
cin>>a;
b=a/10;
a=a%10;
c=a-b;
if(c<0)c+=10;
cout<<c;
}
}

PHP-90文字

私はコードゴルフを試してみたいと思ったので、ここでそれが私の最初の試みです-おそらくもっとゴルフができるでしょう。

<?php $a=array(57,23,99,45);foreach($a as$b){echo abs(substr($b,0,1)-substr($b,1,1)%10);}

58文字（イスマエルミゲル提供）

for($i=0,$a=$_GET[n];$i<8;)echo abs($a[$i++]-$a[$i++]);

を使用してファイルにアクセスする

file.php?n=57239945

Python 3、60

for x in input().split():print(-eval('-'.join(x))%10,end='')

指定されたとおりに入出力しますが、末尾の改行は出力しません。ここでの2つの興味深いトリック：1）への2つの呼び出しをint()1 つの呼び出しに置き換えeval()、2）join()get を使用してa-b、b-a必要に応じて無効にします。幸いなことに、Pythonのモジュロ演算子は、最初の引数が負であっても正の値を返します！