WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

押しボタン式ダイヤラーをエミュレートする

簡単な押しボタン式ダイヤラーを作成する．

Wolfram Language code: Flatten[Outer[List, {697, 770, 852}, {1209, 1336, 1477}], 1]
Wolfram Language code: Grid[Partition[MapIndexed[Button[First[#2], EmitSound[Play[Total[Sin[2Pi # t]& /@ #], {t, 0, .1}]]]&, %], 3]]