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

7
Task/Hello-world-Line-printer/ERRE/hello-world-line-printer.erre Normal file
View file

@ -0,0 +1,7 @@
! Hello World in ERRE language
PROGRAM HELLO
BEGIN
!$REDIR
PRINT("Hello World !")
!$NOREDIR
END PROGRAM

3
Task/Hello-world-Line-printer/EchoLisp/hello-world-line-printer.echolisp Normal file
View file

@ -0,0 +1,3 @@
(printer-font "Courier") ;; change printer font
(printer-page "ROSETTA CODE") ;; starts a new page with nice header
(printer-writeln "Hello World!") ;; prints new line (not seen on stdout)

5
Task/Hello-world-Line-printer/FreeBASIC/hello-world-line-printer.freebasic Normal file
View file

@ -0,0 +1,5 @@
' FB 1.05.0 Win64
Open Lpt "Lpt:" As #1 '' prints to default printer
Print #1, "Hello World!"
Close #1

5
Task/Hello-world-Line-printer/Harbour/hello-world-line-printer.harbour Normal file
View file

@ -0,0 +1,5 @@
SET PRINT ON
SET CONSOLE OFF
? "Hello World!"
SET PRINT OFF
SET CONSOLE ON

1
Task/Hello-world-Line-printer/Lasso/hello-world-line-printer.lasso Normal file
View file

@ -0,0 +1 @@
File_Write: '/dev/lp0', 'Hello world', -FileOverWrite;

3
Task/Hello-world-Line-printer/Nim/hello-world-line-printer.nim Normal file
View file

@ -0,0 +1,3 @@
var lp = open("/dev/lp0", fmWrite)
lp.writeln "Hello World"
lp.close()

1
Task/Hello-world-Line-printer/Oforth/hello-world-line-printer.oforth Normal file
View file

@ -0,0 +1 @@
File new("/dev/lp0") dup open(File.WRITE) "Hello world\n" << close

9
Task/Hello-world-Line-printer/Phix/hello-world-line-printer.phix Normal file
View file

@ -0,0 +1,9 @@
integer fn = open(iff(platform()=WIN32?"PRN":"/dev/lp0"),"w")
if fn=-1 then
puts(1,"some error")
else
puts(fn,"Hello World!")
close(fn)
puts(1,"success!")
end if
{} = wait_key()

1
Task/Hello-world-Line-printer/Ring/hello-world-line-printer.ring Normal file
View file

@ -0,0 +1 @@
lp = fopen("/dev/lp0","w") fputs(lp,"Hello world!") fclose(lp)

3
Task/Hello-world-Line-printer/Sidef/hello-world-line-printer.sidef Normal file
View file

@ -0,0 +1,3 @@
Sys.open(\var fh, '>', '/dev/lp0')
&& fh.println("Hello World!")
&& fh.close;

7
Task/Hello-world-Line-printer/Swift/hello-world-line-printer.swift Normal file
View file

@ -0,0 +1,7 @@
import Foundation
let out = NSOutputStream(toFileAtPath: "/dev/lp0", append: true)
let data = "Hello, World!".dataUsingEncoding(NSUTF8StringEncoding, allowLossyConversion: false)
out?.open()
out?.write(UnsafePointer<UInt8>(data!.bytes), maxLength: data!.length)
out?.close()