This can be shortend to 67 characters (two of which are newlines):

F=:86400%~(3#60)&#.
T=:(1}.':'3 6}3":100+F^:_1) ::([:F@".2 5}~&' ')

FYI,

-- 
Raul


On Tue, Mar 14, 2017 at 2:54 AM, Gilles Kirouac <[email protected]> wrote:
>    F=:86400%~(3#60)&#.
>
>    G=:[:}.' ::'0 3 6}[:,3":100+[:,.F^:_1
>
>
>    T=:G :: ([:F@". 2 5}~&' ')
>
>
>    T'02:57:46'
>
> 0.123449
>
>    T T'02:57:46'
>
> 02:57:46
>
>    T 0.123449
>
> 02:57:46
>
>
>   About 85 chars, but does full formatting.
>
> Le 2017-03-13 à 21:18, Raul Miller a écrit :
>> Technically, I think they do want the : back in and I think they also
>> want fixed width formatting (leading zeros on month and day where
>> necessary).
>>
>> I ignored that part, and focused on a workalike for the original T.
>>
>> Thanks,
>>
>
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to