HEX
Server: Apache
System: Windows NT MAGNETO-ARM 10.0 build 22000 (Windows 10) AMD64
User: Michel (0)
PHP: 7.4.7
Disabled: NONE
Upload Files
File: C:/Ruby27-x64/lib/ruby/gems/2.7.0/gems/rouge-3.26.1/lib/rouge/demos/ghc-core
Rec {
-- RHS size: {terms: 24, types: 3, coercions: 0, joins: 0/0}
Main.fib_fib [Occ=LoopBreaker] :: Integer -> Integer
[GblId, Arity=1, Str=<S,U>, Unf=OtherCon []]
Main.fib_fib
  = \ (ds_d2OU :: Integer) ->
      case integer-gmp-1.0.2.0:GHC.Integer.Type.eqInteger#
             ds_d2OU Main.fib1
      of {
        __DEFAULT ->
          case integer-gmp-1.0.2.0:GHC.Integer.Type.eqInteger#
                 ds_d2OU Main.fib3
          of {
            __DEFAULT ->
              integer-gmp-1.0.2.0:GHC.Integer.Type.plusInteger
                (Main.fib_fib
                   (integer-gmp-1.0.2.0:GHC.Integer.Type.minusInteger
                      ds_d2OU Main.fib3))
                (Main.fib_fib
                   (integer-gmp-1.0.2.0:GHC.Integer.Type.minusInteger
                      ds_d2OU Main.fib2));
            1# -> Main.fib3
          };
        1# -> Main.fib1
      }
end Rec }