/sb.hs

## 19 changes: 19 additions & 0 deletions sb.hs
@@ -0,0 +1,19 @@

    import Data.Ratio
import Data.Ratio

    loop x a = do
loop x a = do

        print a
    print a

        let (l,r) = sb a
    let (l,r) = sb a

        let (_,(d,e)) = l
    let (_,(d,e)) = l

        case compare (fromRational (d%e)) x of
    case compare (fromRational (d%e)) x of

            EQ -> return $ d%e
        EQ -> return $ d%e

            GT -> loop x l
        GT -> loop x l

            LT -> loop x r
        LT -> loop x r

    sb((x,y),(z,w))=(a,b)
sb((x,y),(z,w))=(a,b)

        where   a = ((x,y),c)
    where   a = ((x,y),c)

                b= (c,(z,w))
            b= (c,(z,w))

                c= (z+x,y+w)
            c= (z+x,y+w)

    main = do
main = do

        let a = (0,1)
    let a = (0,1)

        let b = (1,0)
    let b = (1,0)

        let r = (a,b)
    let r = (a,b)

        loop pi r >>= print
    loop pi r >>= print