Twitterで大流行中のペンパイナッポーアッポーペン(PPAP)を実装してみた – LiveScript編 ｜ SiTest (サイテスト) ブログ

突然ですが「ペンパイナッポーアッポーペン(PPAP)」をご存知ですか？

今回はPPAPを使ってプログラミングのネタを投稿させていただきます。

今　巷で話題のこの動画をご存知でしょうか？

謎のシンガー・ソングライター「ピコ太郎」が歌う「ペンパイナッポーアッポーペン」です。
YouTubeでの再生回数は 1,000万回以上！　流行に敏感な中高生のみならず、あのジャスティン・ビーバーもTwitterで紹介するほどの人気で、PPAPを真似して踊っている動画が次々に投稿されています。

作詞：ピコ太郎
曲名：ペンパイナッポーアッポーペン

I have a pen . I have a apple 
アイ ハブ ア ペーン 　アイ　ハブ　ア　アッポー

ah!　Apple pen！
アー！　アポーペーン！

I have a pen . I have a Pineapple 
アイ ハブ ア ペーン 　アイ　ハブ　ア　パイナッポー

ah!　Pineapple pen！
アー！　パイナッポーペーン！

Apple pen！Pineapple pen！
アポーペーン！パイナッポーペーン！

ah!
アー！

Pen Pineapple Apple pen!
ペンパイナッポーアッポーペン！

Pen Pineapple Apple pen!
ペンパイナッポーアッポーペン！

単調なリズムと歌詞に面白いダンスで一回聞くと耳に残ってしまいますよね。

この歌詞ですが、殆どが「Pen」「Apple」「Pineapple」で構成されていますので、プログラミングできそうな気がしませんか？　

気がしますね。

というわけで、この歌詞を出力するプログラムを作ってみようと思います。

言語は弊社のメイン開発言語であるAltJSの LiveScript にしました。

マイナーな言語かもしれませんが、関数型っぽく書けるCoffeeScriptだと考えていただければ大丈夫です。
使ってみるととても便利でキレイに書けるので、弊社のイチオシAltJSです。

# ppap.ls
{split, map, join, take, reverse, each, apply, replicate} = require \prelude-ls

ah = (left, right) ->
  console.log \ah!
  right
  |> reverse
  |> ( ++ left)
  |> join \-

doya = (mono) ->
  console.log "#{mono}!"
  mono

console.log \PPAP

[<[Pen Apple]> <[Pen Pineapple]>]
|> map ->
  it
  |> each (word) ->
    word
    |> take 1
    |> ->
      switch it
      | <[A I U E O]> => \an
      | _  => \a
    |> ("I have " +) >> (+ " #word") >> (+ "!") >> console.log
  |> map replicate 1
  |> apply ah
  |> doya
|> each ( + \~~) >> (console.log)
|> map (split \-)
|> apply ah
|> doya
|> doya

↓実行結果

PPAP
I have a Pen!
I have an Apple!
ah!
Apple-Pen!
I have a Pen!
I have a Pineapple!
ah!
Pineapple-Pen!
Apple-Pen~~
Pineapple-Pen~~
ah!
Pen-Pineapple-Apple-Pen!
Pen-Pineapple-Apple-Pen!

なかなかスマートに書けました。

ahとdoyaに関数を束縛し、それぞれ文字をくっつける処理とドヤっ！ってする処理をおこなっています。

ポイントは ah 関数の引数であるrightだけをreverseしている点です。
これにより["Pineapple", "Pen"]→["Pen", "Pineapple"]に変換しています。

単語の先頭文字を判定し、冠詞のaとanを付け替えている部分は個人的なこだわりです。
(動画では”I have a Apple”となっています)

以前に「きよしのズンドコ節」をプログラミングするのが流行ったのを覚えているエンジニアもいらっしゃるかと思います。

「ズン」と「ドコ」をランダムで繰り返し出力し、「ズンズンズンズンドコ」と並んだら「キ・ヨ・シ！」と出力して終了するプログラムなのですが、似たようなことをPPAPでもやってみました。

#zundoko_ppap.ls
{fix, at, join, take, reverse} = require \prelude-ls

list =
  (fix (f)-> (x)->
    x
    |> reverse >> (take 4) >> (reverse) >> (join "-")
    |> ->
      switch it
      | "Pen-Pineapple-Apple-Pen" => x
      | _ => x |> (++ <[Pen Apple Pineapple Pen]> |> at (Math.random! |>  (* 4) >> (Math.floor))) |> f
  ) []
console.log list,list.length

↓実行結果

[ 'Pineapple',
  'Pen',
  'Pen',
  'Pen',
  'Apple',
  'Apple',
  'Pen',
  'Pen',
  'Apple',
  'Apple',
  'Pen',
  'Pineapple',
  'Pen',
  'Pen',
  'Pen',
  'Pineapple',
  'Pen',
  'Pen',
  'Pineapple',
  'Pen',
  'Pineapple',
  'Apple',
  'Pen' ] 23

配列の最後4つがPPAPになっています。(最後の23は配列の長さです)
再帰ってステキですね。

上記のような関数型言語で仕事してみたい！LiveScriptに興味でてきた！
という方！こちらよりご応募お待ちしております。

採用情報 | 株式会社グラッドキューブ