File extension is in extensions list: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: style) |
(→{{header|J}}: Add J) |
||
Line 26: | 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}}== |
=={{header|Perl 6}}== |
||
<lang perl6>my @ext = < .c .o >; |
<lang perl6>my @ext = < .c .o >; |