|
From: | Blake McBride |
Subject: | Re: [Bug-apl] Strange domain error |
Date: | Tue, 10 Jun 2014 14:08:47 -0500 |
Given:∇Time[⎕]∇∇[0] z←Time[1] z←(,Tmfmt 100⊥((12|z[1])+(12×0=12|z[1])),z[2]),(2 3⍴' AM PM')[1+(z←⎕TS[4 5])[1]≥12;]∇∇Tmfmt[⎕]∇∇[0] z←Tmfmt d[1] z←(2 0⍕⍉d[,1;]),':',2 0⍕⍉(d←(2⍴100)⊤,d)[,2;][2] z←z[;1],(0 ¯1+⍴z)⍴¯1 0↓(d=' ')⊖(d←,0 1↓z),[0.5]'0'∇)SITimeDOMAIN ERRORTmfmt[1] z←(2 0⍕⍉d[,1;]),':',2 0⍕⍉(d←(2⍴100)⊤,d)[,2;]^ ^→Time5:14 PMI have no idea why I got a domain error.Thanks.Blake
[Prev in Thread] | Current Thread | [Next in Thread] |