Capítulo 01 do Livro Introdução ao Haskell
Autor: Beatriz | Publicado: 2013-09-23T18:24:00-07:00

Respostas do capítulo 01 do Livro Introdução ao Haskell
Autores: Stenio Longo Araújo
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Benedito Melo Acióly

-- EXEMPLOS------------------------------------------------------------------------------------------------------ Objetivo: Calcular o quadrado de um número-- Arquivo: Primeiro.hs----------------------------------------------------------------------------------------------------quadrado :: Int -&gt; Intquadrado numero = numero * numero------------------------------------------------------------------------------------------------------ Objetivo: Calcular o maior de dois inteiros----------------------------------------------------------------------------------------------------maior :: Int -&gt; Int -&gt; Intmaior a b&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | a &gt;= b = a &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | b &gt; a = b&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ------------------------------------------------------------------------------------------------------ Objetivo: Calcular o maior de dois inteiros -- Versão 2----------------------------------------------------------------------------------------------------maior2 :: Int -&gt; Int -&gt; Intmaior2 a b&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | a &gt;= b = a&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | otherwise = b&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ------------------------------------------------------------------------------------------------------ EXERCÍCIOS------------------------------------------------------------------------------------------------------ Objetivo: Calcular o cubo de um número ----------------------------------------------------------------------------------------------------cubo :: Int -&gt; Intcubo numero = numero * numero * numero------------------------------------------------------------------------------------------------------ Objetivo: Calcular o cubo de um número a partir da função quadrado----------------------------------------------------------------------------------------------------cubo2 :: Int -&gt; Intcubo2 numero = quadrado numero * numero------------------------------------------------------------------------------------------------------ Objetivo: Calcular o menor de dois inteiros ----------------------------------------------------------------------------------------------------menor :: Int -&gt; Int -&gt; Intmenor a b&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | a &lt;= b = a&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | b &lt; a = b&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ------------------------------------------------------------------------------------------------------ Objetivo: Calcular o menor de dois inteiros -- Versão 2----------------------------------------------------------------------------------------------------menor2 :: Int -&gt; Int -&gt; Intmenor2 a b&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | a &lt;= b = a&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | otherwise = b&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ------------------------------------------------------------------------------------------------------ Objetivo: Calcular o maior de três inteiros -- Versão 3----------------------------------------------------------------------------------------------------maior3 :: Int -&gt; Int -&gt; Int -&gt; Intmaior3 a b c&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | a &gt;= b &amp;&amp; a &gt;= c = a&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | b &gt;= a &amp;&amp; b &gt;= c = b&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; | otherwise = c&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ------------------------------------------------------------------------------------------------------ Objetivo: Calcular o maior de três inteiros a partir da função maior-- Versão 4----------------------------------------------------------------------------------------------------maior4 :: Int -&gt; Int -&gt; Int -&gt; Intmaior4 a b c = maior a (maior b c)------------------------------------------------------------------------------------------------------ Objetivo: Inverter o sinal de um número inteiro----------------------------------------------------------------------------------------------------&nbsp;&nbsp;&nbsp; negar :: Int -&gt; Intnegar numero = numero * (-1)