Type detection: Difference between revisions
Content added Content deleted
| Line 477: | Line 477: | ||
The type of 'Rosetta' is string |
The type of 'Rosetta' is string |
||
</pre> |
</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}}== |
=={{header|J}}== |
||