fork download 
  1. import Data.List
  2.  
  3. hudshiy shag = maximum
  4. 	[ etaj `div` shag
  5. 	+ fromEnum (etaj + shag <= 100)
  6. 	+ if broski2 == 0 then shag - 1 else broski2
  7. 	| etaj <- [1..100]
  8. 	, let broski2 = etaj `rem` shag
  9. 	]
  10.  
  11. main = print $
  12. 	[shag
  13. 	| (shag, hudshiy) <- zip [1..] hudshie
  14. 	, hudshiy == ludshiy_hudshiy
  15. 	] where
  16. 		hudshie         = map hudshiy [1..100]
  17. 		ludshiy_hudshiy = minimum hudshie
Success #stdin #stdout 0s 6236KB
comments (?)
stdin 
Standard input is empty
stdout 
[8,9,10,11,12,13]
https://ideone.com/u1IbNN
language:
Haskell (ghc 8.4.4)
created:
11 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!