jabaraster

module Main where

import           System.Exit

main :: IO ()
main = do
  c <- getContents
  mapM_ core $ lines c
  where
    core :: String -> IO ()

jabaraster

module Main where

import           Control.Concurrent       (forkIO, threadDelay)
import           Control.Concurrent.Async
import           Control.Concurrent.MVar

data Philosopher = Philosopher {
    name  :: String
  , left  :: Int
  , right :: Int

jabaraster

import java.text.SimpleDateFormat
import java.time.LocalDate
import java.time.Month
import java.time.temporal.ChronoUnit
import java.util.GregorianCalendar
import java.util.Locale

fun main() {
    val now = LocalDate.now()
    println(Main.formatMonthCalendar(now.year, now.month))

jabaraster

import Data.List
import Data.List.Split
import Data.Time.Calendar
import Data.Time.Calendar.WeekDate
import Data.Time.Format
import Data.Time.LocalTime

{- --------------------
  この関数がエントリポイント.
--------------------- -}

jabaraster

import Data.Time.Calendar
import Data.Time.Format
import Data.Time.LocalTime
import Data.Time.Calendar.WeekDate

{- --------------------
  この関数がエントリポイント.
--------------------- -}
main = putStrLn =<< pure . formatToMonthCalendar =<< currentMonth

jabaraster

String.join "," << List.reverse << List.map String.fromList << List.Split.chunksOfRight 3 << String.toList << String.fromInt

jabaraster

  SendMailRole:
    Type: AWS::IAM::Role
    Properties:
      AssumeRolePolicyDocument:
        Version: "2012-10-17"
        Statement:
          - Effect: Allow
            Principal:
              Service: lambda.amazonaws.com
            Action: "sts:AssumeRole"