1. Forum
  2. Usenet
  3. COMP.LANG.HASKELL

  • how to remove bracket in this case?

    From meInvent bbird@21:1/5 to All on Mon Jul 18 22:46:59 2016
    *Main> removebracket (take 1 allparams2) [([0.0,1.0,0.0,1.0,0.0,1.0,0.0,1.0],4.0),([0.0,1.0,0.0,1.0,0.0,1.0,0.0,1.0],4.0)]
    *Main> take 1 allparams2 [[([0.0,1.0,0.0,1.0,0.0,1.0,0.0,1.0],4.0),([0.0,1.0,0.0,1.0,0.0,1.0,0.0,1.0],4.0)]]
    *Main> fmap (fst . removebracket) $ allparams2
    [*** Exception: <interactive>:183:33-53: Non-exhaustive patterns in function removebracket

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From meInvent bbird@21:1/5 to meInvent bbird on Tue Jul 19 02:07:01 2016
    succeed to remove bracket

    let {rb [a] -> a; rb [a] = a}


    On Tuesday, July 19, 2016 at 1:47:00 PM UTC+8, meInvent bbird wrote:
    *Main> removebracket (take 1 allparams2) [([0.0,1.0,0.0,1.0,0.0,1.0,0.0,1.0],4.0),([0.0,1.0,0.0,1.0,0.0,1.0,0.0,1.0],4.0)]
    *Main> take 1 allparams2 [[([0.0,1.0,0.0,1.0,0.0,1.0,0.0,1.0],4.0),([0.0,1.0,0.0,1.0,0.0,1.0,0.0,1.0],4.0)]]
    *Main> fmap (fst . removebracket) $ allparams2
    [*** Exception: <interactive>:183:33-53: Non-exhaustive patterns in function removebracket

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)