Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Ix/Ix_6.hs

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


module Ix(Ix(..)) where

import CIx

instance  (Ix a1, Ix a2, Ix a3, Ix a4, Ix a5, Ix a6) =>
	 Ix (a1,a2,a3,a4,a5,a6)  where
    range ((l1,l2,l3,l4,l5,l6),(u1,u2,u3,u4,u5,u6)) =
          [(i1,i2,i3,i4,i5,i6) | i1 <- range (l1,u1),
                                 i2 <- range (l2,u2),
                                 i3 <- range (l3,u3),
                                 i4 <- range (l4,u4),
                                 i5 <- range (l5,u5),
                                 i6 <- range (l6,u6)]

    index ((l1,l2,l3,l4,l5,l6),(u1,u2,u3,u4,u5,u6)) (i1,i2,i3,i4,i5,i6) =
        index (l6,u6) i6 + rangeSize (l6,u6) * (
         index (l5,u5) i5 + rangeSize (l5,u5) * (
          index (l4,u4) i4 + rangeSize (l4,u4) * (
           index (l3,u3) i3 + rangeSize (l3,u3) * (
            index (l2,u2) i2 + rangeSize (l2,u2) * (
             index (l1,u1) i1)))))

    inRange ((l1,l2,l3,l4,l5,l6),(u1,u2,u3,u4,u5,u6)) (i1,i2,i3,i4,i5,i6) =
         inRange (l1,u1) i1
           && inRange (l2,u2) i2
           && inRange (l3,u3) i3
           && inRange (l4,u4) i4
           && inRange (l5,u5) i5
           && inRange (l6,u6) i6

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to webmaster@9p.io.