aiya000

Right
(
 (
    \n:(Unit -> Unit) -> Unit -> Unit.
        \m:(Unit -> Unit) -> Unit -> Unit.
            \s:Unit -> Unit.
                \z:Unit.(n s) ((m s) z))
                    (
                        \s1:Unit -> Unit.
                            \z1:Unit.s1 z1

myaosato

(defmacro -> (prev &rest rest)
  (if (null rest)         
      prev         
      `(-> ,(cons (caar rest) (cons prev (cdar rest))) ,@(cdr rest))))          

(defmacro ->> (prev &rest rest)
  (if (null rest)
      prev       
      `(->> ,(append (car rest) (list prev)) ,@(cdr rest))))                

tani

set number
set title
set ambiwidth=double
set tabstop=4
set expandtab
set shiftwidth=4
set smartindent
set list
set listchars=tab:»-,trail:-,eol:↲,extends:»,precedes:«,nbsp:%
set whichwrap=b,s,[,],<,>

koturn

### This Makefile was written for GNU Make. ###
ifeq ($(DEBUG),true)
    COPTFLAGS   := -O0 -g3 -ftrapv -fstack-protector-all -D_FORTIFY_SOURCE=2
    LDLIBS      += -lssp
else
ifeq ($(OPT),true)
    COPTFLAGS   := -flto -Ofast -march=native -DNDEBUG
    LDOPTFLAGS  := -flto -Ofast -s
else
ifeq ($(LTO),true)

leonjza

import socket
 
class Netcat:

    """ Python 'netcat like' module """

    def __init__(self, ip, port):

        self.buff = ""
        self.socket = socket.socket(socket.AF_INET, socket.SOCK_STREAM)

kwatch

$!    raise された例外オブジェクト
$"    require で読み込まれたファイルの配列
$#
$$    現在のプロセス ID
$%
$&    正規表現にマッチした箇所の文字列
$'    正規表現にマッチした箇所より後ろの文字列
$(
$)
$*    Ruby スクリプトに指定された引数。ARGV と同じ