aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Add tasks for all the new languages

Browse source
This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

67
Task/Draw-a-clock/FunL/draw-a-clock.funl Normal file
View file

@ -0,0 +1,67 @@
import concurrent.{scheduleAtFixedRate, scheduler}
val ROW = 10
val COL = 20
val digits = array( [
" __",
" / /",
"/__/ ",
" ",
" /",
" / ",
" __",
" __/",
"/__ ",
" __",
" __/",
" __/ ",
" ",
" /__/",
" / ",
" __",
" /__ ",
" __/ ",
" __",
" /__ ",
"/__/ ",
" __",
" /",
" / ",
" __",
" /__/",
"/__/ ",
" __",
" /__/",
" __/ "
] )
val colon = array( [
" ",
" .",
". "
] )
def displayTime =
def pad( n ) = if n < 10 then '0' + n else n
t = $time
s = (t + $timeZoneOffset)\1000%86400
time = pad( s\3600 ) + ':' + pad( s%3600\60 ) + ':' + pad( s%60 )
for row <- 0:3
print( if $os.startsWith('Windows') then '\n' else '\u001B[' + (ROW + row) + ';' + COL + 'H' )
for ch <- time
print( if ch == ':' then colon(row) else digits(int(ch)*3 + row) )
println()
t
if not $os.startsWith( 'Windows' )
print( '\u001B[2J\u001B[?25l' )
scheduleAtFixedRate( displayTime, 1000 - displayTime()%1000, 1000 )
readLine()
scheduler().shutdown()
if not $os.startsWith( 'Windows' )
print( '\u001B[?25h' )