Type detection: Difference between revisions
→{{header|J}}
Line 477:
The type of 'Rosetta' is string
</pre>
=={{header|Icon}}==
<lang icon>procedure main()
print_text("This\nis\na text.\n")
print_text(open("type_detection-icon.icn"))
end
procedure print_text(source)
case type(source) of {
"string" : writes(source)
"file" : while write(read(source))
}
end</lang>
{{out}}
$ icont -u -s type_detection-icon.icn && ./type_detection-icon
<pre>This
is
a text.
procedure main()
print_text("This\nis\na text.\n")
print_text(open("type_detection-icon.icn"))
end
procedure print_text(source)
case type(source) of {
"string" : writes(source)
"file" : while write(read(source))
}
end</pre>
=={{header|J}}==
| |||