Jump to content

File extension is in extensions list: Difference between revisions

→‎{{header|J}}: refactor and improve interface
(→‎{{header|J}}: Support extra credit cases)
(→‎{{header|J}}: refactor and improve interface)
Line 533:
 
'''Solution:'''
<lang j>isExtisSuffix=: [: +./ (-~&# = {:@I.@E.)&(tolower@>)/</lang>
isExt=: ('.'&,&.>@[ ([: +./ isSuffix&(tolower@>)/) boxopen@])</lang>
 
'''Usage:'''
<lang j> Exts=: <@('.'&,);._1 ' zip rar 7z gz archive A## tar.bz2'
TestFiles=: <;._1 ' MyData.a## MyData.tar.Gz MyData.gzip MyData.7z.backup MyData... MyData MyData_v1.0.tar.bz2 MyData_v1.0.bz2'
Exts isExt TestFiles
892

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.