jkramer

#!/usr/bin/env perl6

$*IN.slurp.&talk;

sub talk(Str $_) {
  my @ös = |('Ö','ö') xx *;

  for .lines {
    for .comb.produce(&[~]) {
      print "\r", @ös.shift, ' ', $_;

jkramer

class Log::Dispatch {
        enum Level <DEBUG INFO NOTICE WARNING ERROR CRITICAL ALERT EMERGENCY>;

        class Output {
                has Level $.level = DEBUG;
                
                method format(Level $level, DateTime $ts, @args) {
                        $ts ~ ' [' ~ $level.lc ~ '] ' ~ @args>>.gist.join(' ')
                }
                

jkramer

use Blurgh;

class Blog::Post does Blurgh::Route[:('post')] {
  state %posts;
  state $next-post-id = 1;

  # Matches "GET /post/123" (only if integer exists in %posts)
  multi method get(Int:D $id where { %posts{$_}:exists }) {
    $.render(:text(%posts{$id}));
  }

jkramer

import Control.Monad
import Data.List

main = do
    [ _, height ] <- replicateM 2 (fmap read getLine)
    cells <- fmap concat (forM [0 .. height - 1] (\ y -> fmap (parseRow y) getLine))
    forM cells (putStrLn . findNext cells)
    where
        parseRow y cells = map ((,) y . fst) $ filter ((==) '0' . snd) $ zip [0..] cells

jkramer

import System.IO
import Control.Monad
import Data.List

main = do
    hSetBuffering stdout NoBuffering -- DO NOT REMOVE

    count <- fmap read getLine
    strengths <- fmap sort (replicateM count (fmap read getLine))

jkramer

import Data.List
import Data.Ord
import System.IO
import Control.Monad

type Node = Int
type Gateway = Node
type Link = (Node, Node)
type Path = [Link]

jkramer

import System.IO
import Control.Monad

main = do
    hSetBuffering stdout NoBuffering -- DO NOT REMOVE

    [road, gap, platform] <- replicateM 3 (fmap read getLine)

    forever $ do
        [speed, x] <- replicateM 2 (fmap read getLine)

jkramer

import System.IO
import Data.List
import Data.Ord

main = do
    hSetBuffering stdout NoBuffering
    n <- fmap read getLine
    if n == 0
        then print 0
        else getLine >>= print . head . sortOn abs . reverse . sort . map read . words

jkramer

import System.IO

main = do
    hSetBuffering stdout NoBuffering -- DO NOT REMOVE
    [lightx, lighty, initialtx, initialty] <- fmap (map read . words) getLine
    mapM_ (\ x -> getLine >> putStrLn x) (path initialtx initialty lightx lighty)

path x y lx ly =
    zipWith (++) (direction "S" "N" (y - ly)) (direction "E" "W" (x - lx))
    where

jkramer

import Control.Monad
import Data.Char
import Data.Maybe
import Data.List

main = do
    [n, q] <- replicateM 2 (fmap read getLine)
    types <- replicateM n (fmap ((\ [x, y] -> (map toLower x, y)) . words) getLine)
    replicateM q $ do
        ext <- fmap (extension . map toLower) getLine