Create a file on magnetic tape: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
No edit summary |
||
Line 204: | Line 204: | ||
close(f); |
close(f); |
||
end. |
end. |
||
</lang> |
|||
=={{header|F#}}== |
|||
<lang fsharp> |
|||
open System |
|||
open System.IO |
|||
let env = Environment.OSVersion.Platform |
|||
let msg = "Hello Rosetta!" |
|||
match env with |
|||
| PlatformID.Win32NT | PlatformID.Win32S | PlatformID.Win32Windows | PlatformID.WinCE -> File.WriteAllText("TAPE.FILE", msg) |
|||
| _ -> File.WriteAllText("/dev/tape", msg) |
|||
</lang> |
</lang> |
||