fork download
copy 
  1. linefun :: (Double, Double) -> (Double, Double) -> String
  2. linefun (x1, y1) (x2, y2) = "y = " ++ show k ++ " * x + " ++ show b where
  3.     k = dy / dx
  4.     b = y1 - k * x1
  5.     dx = x2 - x1
  6.     dy = y2 - y1
  7.  
  8. main = putStrLn $ linefun (0, 1) (1, 3)
Success #stdin #stdout 0s 5756KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
y = 2.0 * x + 1.0
https://ideone.com/JFRQb6
language:
Haskell (ghc 8.4.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!