1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
<?xml version="1.0" encoding="UTF-8"?>
<article xmlns="http://docbook.org/ns/docbook" xmlns:xl="http://www.w3.org/1999/xlink" version="5.0">
<info>
<title>PHP カンファレンス沖縄で出題されたコードゴルフの問題を解いてみた</title>
<abstract>
PHP カンファレンス沖縄の懇親会 LT で出題されたコードゴルフの問題を解いてみた。
</abstract>
<keywordset>
<keyword>conference</keyword>
<keyword>php</keyword>
<keyword>phpcon</keyword>
</keywordset>
<revhistory>
<revision>
<date>2022-08-27</date>
<revremark>公開</revremark>
</revision>
</revhistory>
</info>
<section xml:id="intro">
<title>はじめに</title>
<simpara>
本日 <link xl:href="https://phpcon.okinawa.jp/">PHP カンファレンス沖縄 2022</link>
が開催された (らしい)。
</simpara>
<simpara>
カンファレンスには参加できなかったものの、懇親会の LT
で出題されたコードゴルフの問題が Twitter に流れてきたので、解いてみた。
</simpara>
<simpara>
ツイート: <link xl:href="https://twitter.com/m3m0r7/status/1563397620231712772">https://twitter.com/m3m0r7/status/1563397620231712772</link><br/>
スライド:
<link xl:href="https://speakerdeck.com/memory1994/php-conference-okinawa-2022-extra?slide=3">https://speakerdeck.com/memory1994/php-conference-okinawa-2022-extra?slide=3</link>
</simpara>
</section>
<section xml:id="_解">
<title>解</title>
<simpara>
細かいレギュレーションは不明だったので、勝手に定めた。
</simpara>
<itemizedlist>
<listitem>コマンドライン引数の第1引数で受けとる</listitem>
<listitem>結果は標準出力に出す</listitem>
<listitem>コンマの直後にはスペースを1つ置く</listitem>
<listitem>末尾コンマは禁止</listitem>
<listitem>数字でないものは入ってこないものとする</listitem>
<listitem>負数は入ってこないものとする</listitem>
</itemizedlist>
<simpara>
書いたものがこちら:
</simpara>
<programlisting language="php" linenumbering="unnumbered">
<![CDATA[
[<?php $n=$argv[1];foreach([1e4,5e3,2e3,1e3,500,100,50,10,5,1]as$x)for(;$n>=$x;$n-=$x)$r[]=$x;echo implode(', ',$r??[]);?>]
]]>
</programlisting>
<simpara>
しめて 123 バイトとなった (末尾改行を含めずにカウント)。
</simpara>
<simpara>
こちらは改行とスペースを追加したバージョン:
</simpara>
<programlisting language="php" linenumbering="unnumbered">
<![CDATA[
[<?php
$n = $argv[1];
foreach ([1e4, 5e3, 2e3, 1e3, 500, 100, 50, 10, 5, 1] as $x)
for (; $n >= $x; $n -= $x)
$r[] = $x;
echo implode(', ', $r ?? []);
?>]
]]>
</programlisting>
</section>
<section xml:id="_使用したテクニック">
<title>使用したテクニック</title>
<section xml:id="_指数表記">
<title>指数表記</title>
<simpara>
割と多くの言語のゴルフで使えるテクニック。<literal>e</literal>
を用いた指数表記で、大きな数を短く表す。このコードでは
<literal>10000</literal>、<literal>5000</literal>、<literal>2000</literal>、<literal>1000</literal> を指数表記している。
</simpara>
</section>
<section xml:id="_foreach_や_for_の中身を1つの文に">
<title>foreach や for の中身を1つの文に</title>
<simpara>
<literal>foreach</literal>、<literal>for</literal>、<literal>if</literal> などの後ろには、通常 <literal>{</literal>
を続けて複数の文を連ねるが、中身の文を1つにしてしまえば、<literal>{</literal> と <literal>}</literal>
を省略できる。C言語などでも使える。
</simpara>
</section>
<section xml:id="_r_に初期値を入れない">
<title>$r に初期値を入れない</title>
<simpara>
PHP では、<literal>$r[] = …​</literal>
のような配列の末尾に追加する式を実行したとき、<literal>$r</literal> が未定義だった場合は
<literal>$r</literal>
を勝手に定義して空の配列で初期化してくれる。これを利用すると、<literal>$r = [];</literal>
のような初期化が不要になる。
</simpara>
<simpara>
ただし、プログラムに 0 が渡されるとループを一度も回らないので、<literal>$r</literal>
が未定義になってしまい、<literal>implode()</literal>
に渡すところでエラーになる。それを防ぐために <literal>$r ?? []</literal> を使っている。
</simpara>
<simpara>
もし 0 が渡されたケースを無視するなら、これが不要になるので 4
バイト縮む。
</simpara>
</section>
<section xml:id="_php_タグの外に文字列を置く">
<title>PHP タグの外に文字列を置く</title>
<simpara>
PHP では、<literal><?php</literal> <literal>?></literal>
で囲われた部分の外側にある文字列は、そのまま出力される。今回のケースでは、先頭と末尾に必ず
<literal>[</literal> と <literal>]</literal> を出力するので、そのまま書いてやればよい。
</simpara>
</section>
</section>
<section xml:id="outro">
<title>おわりに</title>
<simpara>
最後になりましたが、https://twitter.com/m3m0r7[めもりー]
さん、楽しい問題をありがとうございました。
</simpara>
</section>
</article>
|
