Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
12
Task/Record-sound/Nim/record-sound.nim
Normal file
12
Task/Record-sound/Nim/record-sound.nim
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
proc record(bytes): auto =
|
||||
var f = open("/dev/dsp")
|
||||
result = newSeq[int8](bytes)
|
||||
discard f.readBytes(result, 0, bytes)
|
||||
|
||||
proc play(buf) =
|
||||
var f = open("/dev/dsp", fmWrite)
|
||||
f.write(buf)
|
||||
f.close
|
||||
|
||||
var p = record(65536)
|
||||
play(p)
|
||||
Loading…
Add table
Add a link
Reference in a new issue