File extension is in extensions list: Difference between revisions
File extension is in extensions list (view source)
Revision as of 10:51, 12 August 2014
, 9 years ago→{{header|J}}: Add J
(→{{header|Perl 6}}: style) |
(→{{header|J}}: Add J) |
||
Line 26:
=={{header|J}}==
'''Solution:'''
<lang j>getExt=: }.~ i:&'.'
isExt=: e.~&:(tolower&.>) getExt&.>@boxopen</lang>
'''Usage:'''
<lang j> Exts=: <;._1 ' .o .ijs .ij .p'
TestFiles=: <;._1 ' foo.o blab.iJ dram. lat.P win.dll foo'
Exts isExt TestFiles
1 1 0 1 0 0</lang>
=={{header|Perl 6}}==
<lang perl6>my @ext = < .c .o >;
| |||