backup de julho
[h2N7SspZmY.git] / data / cache / 1 / 1229e6da5f71511893aabdd6f10dd8d6.code
bloba991b3a666cd3e2dd06500eb06739d6218c1d853
1 shortLinesOnly <span class="sy0">::</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#t:String"><span class="kw4">String</span></a> <span class="sy0">-&gt;</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#t:String"><span class="kw4">String</span></a>  
2 shortLinesOnly input <span class="sy0">=</span>   
3   <span class="kw1">let</span> allLines <span class="sy0">=</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:lines"><span class="kw3">lines</span></a> input  
4       shortLines <span class="sy0">=</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:filter"><span class="kw3">filter</span></a> <span class="br0">&#40;</span>\line <span class="sy0">-&gt;</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:length"><span class="kw3">length</span></a> line <span class="sy0">&lt;</span> 10<span class="br0">&#41;</span> allLines  
5       result <span class="sy0">=</span> <a href="http://haskell.org/ghc/docs/latest/html/libraries/base/Prelude.html#v:unlines"><span class="kw3">unlines</span></a> shortLines  
6   <span class="kw1">in</span>  result