[Delphi][小ネタ]しかのこのこのここしたんたん

はじめに

paiza×Qiita記事投稿キャンペーン「プログラミング問題をやってみて書いたコードを投稿しよう！」

というキャンペーンをやっていたものの paiza の問題限定だったので参加はできない…でも、そういえばツイッターで次の問題を

【応用問題】しかのこのこのここしたんたん≪改行≫✕10を、"しかのこたん"という文字配列一つから生成せよ

— あうぇっど (@Awed_Urshy) August 7, 2024

DEKO さんが Delphi で書いてたので、それを真似て回答してみる！

Delphi で書いてみた。https://t.co/01hHar9qP3 pic.twitter.com/c7q9ZjO1nb

— DEKO (@ht_deko) August 9, 2024

回答

勝手にコードゴルフにした！

110文字

begin const S='しかのこたん';for var i:=0to 79do Write(Copy(S[4]+S+#10#13,Ord('24441668'[7and i+1])-48,2))end.

清書

begin
  const S = 'しかのこたん';
  for var i:= 0 to 79 do
    Write(Copy(S[4] + S + #10#13, Ord('24441668'[7 and i + 1]) - 48, 2))
end.

これ以上短くできなかった…
24441668 を出せる短い数式があれば…（長い数式はある）

おわりに

もっと短いコード見たい！