netstu

set csvData to read "/Users/netstu/Downloads/mbis.csv"
set csvEntries to paragraphs of csvData
repeat with i from 1 to count csvEntries
	set phone to (csvEntries's item i)'s text
	tell application "System Events" to tell process "Messages"
		set input to "how are you" as text
		click button 1 of group 1 of splitter group 1 of window 1
		delay 1
		keystroke "" & phone & "" -- type the reciever
		keystroke return -- validate the previous input

netstu

on run {targetBuddyPhone, targetMessage, repeatCount}
    tell application "Messages"
        set targetService to 1st service whose service type = iMessage
        set targetBuddy to buddy targetBuddyPhone of targetService
        set myCount to repeatCount as integer
        repeat myCount times
            send targetMessage to targetBuddy
        end repeat
    end tell
end run

ChanglinZhou

(let [exp10 #(reduce * 1 (repeat % 10))  
      combine (fn [n1 ev]
                (loop [r n1 n2 (if ev n1 (quot n1 10))]
                  (if (zero? n2) r
                      (recur (+ (* 10 r) (rem n2 10)) (quot n2 10)))))
      gen (fn gen [start end ev]  
            (lazy-cat
             (if ev nil (map #(combine % ev) (range start end)))
             (map #(combine % true) (range (if ev start (quot end 10)) end))
             (gen end (* end 10) false)))

daveyarwood

(fn best-hand [card-strings]
  (let [card-parser (fn [[s r]]
                      (let [suit ({\S :spade, \H :heart, 
                                   \D :diamond, \C :club} s)
                            rank (if (> (Character/digit r 10) -1)
                                   (- (Character/digit r 10) 2)
                                   ({\T 8, \J 9, 
                                     \Q 10, \K 11, \A 12} r))]
                        {:suit suit, :rank rank}))
        cards (map card-parser card-strings)

madan712

import java.io.File;
import java.io.FileInputStream;
import java.util.List;

import org.apache.poi.hwpf.HWPFDocument;
import org.apache.poi.hwpf.extractor.WordExtractor;
import org.apache.poi.xwpf.usermodel.XWPFDocument;
import org.apache.poi.xwpf.usermodel.XWPFParagraph;

public class DocReader {

killme2008

;;Code for https://www.jinshuju.net/f/EGQL3D
(defn- read-n-numbers [n]
  (repeatedly n #(let [x (read-line)]
                    (Integer/valueOf x))))

(defn- say-what [inputs words n]
  (let [[x y z] inputs
        rs (filter #(zero? (rem n %)) inputs)]
    (cond
     ;;rule 5

killme2008

defmodule MyUnless do
  defmacro unless(clause, then_clause, else_clause \\ nil) do
    quote do
      if !unquote(clause) do
        unquote(then_clause)
      else
        unquote(else_clause)
      end
    end
  end

killme2008

defprotocol Blank do
  @doc "Returns true if data is considered blank/empty"
  @fallback_to_any true
  def blank?(data)
end

defimpl Blank, for: Any do
  def blank?(_), do: false
end

killme2008

defmodule MySigils do
  def sigil_i(string, []), do: String.to_integer(string)
  def sigil_i(string, [?n]), do: -String.to_integer(string)
end

killme2008

defmodule Pipe do
  defmacro a|>b do
    pos  = tuple_size(b) -1
    Macro.pipe(a, b, pos)
  end

  defmacro __using__(_extras) do
    quote do
      import Kernel, except: [|>: 2]
      import Pipe