fork(2) download 
  1. import Text.Printf
  2. data Color = Red | Green | Blue | Rgb {r :: Int, g :: Int, b :: Int}
  3. to_hex :: Color -> String
  4. to_hex x = case x of
  5.      Red   -> "#0xFF0000"
  6.      Green -> "#0x00FF00"
  7.      Blue  -> "#0x0000FF"
  8.      Rgb r g b -> printf "#%02X%02X%02X" r g b
  9.  
  10. main = print $ to_hex Rgb{r = 255, g = 255, b = 255}
Success #stdin #stdout 0s 4796KB
comments ()
stdin 
Standard input is empty
stdout 
"#FFFFFF"
https://ideone.com/wYlJaI
language:
Haskell (ghc 8.4.4)
created:
8 years ago
visibility:
secret

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!