http://nyt.fi/a1305861952351

LookingForServerEngineers.hs

module Supercell.LookingForServerEngineers where

import Supercell.Engineer as E
import Supercell.Job as J

import Control.Monad
import Data.Bits

identifier :: Int
identifier = 8192

shiftPos :: Int
shiftPos = 2

toJoinOurServicesTeam :: Engineer -> Job -> IO ()
toJoinOurServicesTeam engineer job =
  when (E.isInterested engineer && J.location job == "Helsinki") $ do
    E.checkOut engineer $ "http://supr.cl/" ++ show (identifier `shift` shiftPos)
    E.apply engineer job

lookingForServerEngineers.scala

package supercell

package object lookingForServerEngineers {
  val ID: Int = 8192
  val SHIFT_POSITIONS: Int = 8192

  def toJoinOurServicesTeam(engineer: Engineer, job: Job) =
    if (engineer.isInterested && job.location == "Helsinki") {
      engineer.checkOut("http://supr.cl/" + (ID << SHIFT_POSITIONS))
      engineer.apply(job)
    }
}