tstarck

module Foo where

import Data.List

comparing :: (Ord a) => (b -> a) -> b -> b -> Ordering
comparing f x y = compare (f x) (f y)

sortByLength :: [[a]] -> [[a]]
sortByLength = sortBy (comparing length)

tstarck

import robotti.Ohjain;

public class Viivakimara {

    private static final String[] FONT = {
        "2>7<3<6<4<5<5<5<1>1<3>>4",
        "2>1>1<1<1>4>1<1<3<1<1>6<1>>2",
        "2>2>1>1>5>2>2<1>1<2<3>1>5>1>1<1>2<1>1<4<3>>4",
        "2>2>1>1>5>2>3<1<3>2>5>1>1>2<3<7<3>>4",