动画声音波形
动画声音波形
提问于 2014-02-04 23:41:49
让动画的声音波形使用任何编程语言你喜欢，方格的光谱可以是一个单一的颜色(没有彩虹效应)。
动画必须是无限的，而不是循环序列(必须是随机动画)。
您可以使用任何类型的外部库。
这是一个密码-高尔夫，所以最短的代码将获胜。
波形示例：
(感谢对结果的截图)
编辑:我认为很明显，但波形必须是水平的。
回答 5
Code Golf用户
发布于 2014-02-05 20:28:06
APL (61)
{∇n⊣⎕DL.1⊣⎕SM←1 1,⍨⊂' '⍪⊖⍉↑⍴∘'▇'¨,0,⍪n←24⌊0⌈⍵+3-?5/⍨⍴⍵}?24/40它从随机大小的条形开始，并以-2到2每帧之间的随机数改变每条的高度。
截图：
Code Golf用户
发布于 2014-02-05 02:59:20
Ruby96
该程序采用两个参数，即“图形”的高度和宽度，因此要使其填充80x24终端，请使用ruby spectrum.rb 80 24运行它。
w,h=$*.map &:to_i
loop{o=(1..w).map{rand h}
h.times{|i|puts o.map{|j|j>i ?" ":?#}*''}
sleep 0.1}在终端中显示如下内容：
#
#
### #
# ### #
## ### ##
## #### ##
######## ##
######### ## #
######### ## ##
######### ## ##
######### ## #####
############# #####
############# #####
####################Ruby 22
水平杆和固定宽度(高=终端高度)
loop{puts ?#*rand(24)}Code Golf用户
发布于 2014-02-05 02:35:30
批处理- 193
@echo off&setLocal enableDelayedExpansion
:s
set/ar=%RANDOM%*17/32768+4&for /l %%a in (20,-1,1)do (if %%a GEQ %r% (set l%%a= !l%%a!) else set l%%a=Û!l%%a!)&echo !l%%a!
ping 1>nul&cls&@goto s非高尔夫-
@echo off
setLocal enableDelayedExpansion
:s
set /a r=%RANDOM%*17/32768+4
for /l %%a in (20,-1,1) do (
if %%a GEQ %r% (set l%%a= !l%%a!) else set l%%a=Û!l%%a!
) & echo !l%%a!
ping 1>nul
cls
goto s假设你有一个无限宽的终端窗口-我会处理文字包装.
不是最漂亮的--但它能做到-- 295字节。
@echo off&setLocal enableDelayedExpansion
for /f "tokens=2" %%w in ('mode con^|findstr Col')do set w=%%w
:s
mode con:cols=%w% lines=20
set/ar=%RANDOM%*17/32768+4&for /l %%a in (20,-1,1)do (if %%a GEQ %r% (set l%%a= !l%%a!) else set l%%a=Û!l%%a!)&echo !l%%a!
set/aw+=1&ping 1>nul&cls&@goto s页面原文内容由Code Golf提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://codegolf.stackexchange.com/questions/20053
复制相关文章
相似问题
腾讯云开发者
