mactkg

*-zsh zone(3356)-*
/Users/mactkg/Desktop/pros% bash
*-bash zone(23750)-*
bash-3.2$ csh
*-csh zone(23756)-*
[athene:~/Desktop/pros] mactkg% ps -la
  UID   PID  PPID        F CPU PRI NI       SZ    RSS WCHAN     S     ADDR TTY           TIME CMD
    0  3352 62566     4106   0  31  0  2436324   1612 -      Ss    f1992a0 ttys000    0:00.25 login -pf mactk
  501  3356  3352     4006   0  31  0  2437320   2724 -      S     cb37540 ttys000    0:00.18 -zsh
  501 23750  3356     4006   0  31  0  2435548    996 -      S    1cb527e0 ttys000    0:00.00 bash

rosylilly

先輩に学ぶ HTTP Status Code

超雑にまとめました。修正してください。

登場人物

• アプリケーション先輩: いつも忙しい。横に広がるのが得意(デブじゃない)。
• 後輩: 頼んでばっかしで役に立たない。
• サーバー先輩: アプリケーション先輩と仲がいい。Unix Socket でつながるくらい仲良し。
• プロクシ先輩: アプリケーション先輩とかサーバー先輩と後輩の間を取り持って代わりに伝えたりしてくれる。たまに勝手にレスポンスを書き換える。

myuon

import Control.Monad

while :: (Monad m) => (a -> Bool) -> m a -> m a
while f m = do
  a <- m
  when (f a) $ while f m >> return ()
  return $ a

main = do
  putStrLn $ "Can you guess the number I have?"