fork(3) download 
  1. main = fmap (map read . words) getLine >>= narisovatChasiki
  2.  
  3. narisovatChasiki vremya@[chasi,minuti] = 
  4.     flip mapM_ [razmer,razmer-1.. -razmer] $ \y -> 
  5.         flip mapM_ [-razmer..razmer] (\x -> 
  6.             putStr [if elem (x,y) chasiki then '#' else ' ',' ']) >> putChar '\n' where      
  7.     chasiki = kruzhok ++ strelo4ki 
  8.     kruzhok = zaeboshitKruzhok (fromIntegral razmer)  
  9.     strelo4ki = malenkayaStrelo4ka ++ bolshayaStrelo4ka where
  10.         malenkayaStrelo4ka = zaeboshitStrelo4ku 12 (pi/2 - pi/6*chasi - pi/360*minuti)
  11.         bolshayaStrelo4ka = zaeboshitStrelo4ku 17 (pi/2 - pi/30*minuti)
  12.  
  13. zaeboshitKruzhok radius = map (zaeboshitTo4e4ku radius) [0,sdvig..2*pi]
  14. zaeboshitStrelo4ku dlina ugol = map (`zaeboshitTo4e4ku` ugol) [0,sdvig..dlina]
  15. zaeboshitTo4e4ku rasstojanie ugol = 
  16.     (round (rasstojanie*cos ugol),round (rasstojanie*sin ugol))
  17.  
  18. sdvig = 0.01
  19. razmer = 20
Success #stdin #stdout 0.25s 6368KB
comments (?)
stdin 
9 30
stdout 
                                # # # # # # # # #                                 
                        # # # #                   # # #                           
                    # # #                               # # #                     
                  # #                                       # #                   
              # # #                                           # # #               
            # #                                                   # #             
          # #                                                       # #           
        # #                                                           # #         
        #                                                               #         
      # #                                                               # #       
    # #                                                                   # #     
    #                                                                       #     
    #                                                                       #     
  #                                                                           #   
  #                                                                           #   
  #                                                                           #   
#                                                                               # 
#               # # # #                                                         # 
#                     # # # #                                                   # 
#                           # # # # #                                           # 
#                                   # # #                                       # 
#                                       #                                       # 
#                                       #                                       # 
#                                       #                                       # 
#                                       #                                       # 
  #                                     #                                     #   
  #                                     #                                     #   
  #                                     #                                     #   
  # #                                   #                                   #     
    #                                   #                                   #     
    # #                                 #                                 # #     
      # #                               #                               # #       
        #                               #                               #         
        # #                             #                             # #         
          # #                           #                           # #           
            # #                         #                         # #             
              # # #                     #                     # # #               
                  # #                   #                   # #                   
                    # # #                               # # #                     
                          # # #                   # # # #                         
                                # # # # # # # # #
https://ideone.com/F9jwP5
language:
Haskell (ghc 8.4.4)
created:
11 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!