Zert

(defun color-cie-de2000 (color1 color2 &optional kL kC kH)
  "Return the CIEDE2000 color distance between COLOR1 and COLOR2.
Both COLOR1 and COLOR2 should be in CIE L*a*b* format, as
returned by `color-srgb-to-lab' or `color-xyz-to-lab'."
  (pcase-let*
      ((`(,L₁ ,a₁ ,b₁) color1)
       (`(,L₂ ,a₂ ,b₂) color2)
       (kL (or kL 1))
       (kC (or kC 1))
       (kH (or kH 1))

Zert

PLT_NAME=.n2o_dialyzer.plt

$(PLT_NAME):
	@ERL_LIBS=deps dialyzer --build_plt --output_plt $(PLT_NAME) \
		--apps erts kernel stdlib sasl crypto xmerl cowboy \
		 erlydtl gproc mimetypes ranch sync || true

dialyze: $(PLT_NAME)
	@dialyzer deps/n2o/ebin deps/n2o_sample/ebin deps/n2o_scripts/ebin --plt $(PLT_NAME) \

Zert

  Checking whether the PLT .n2o_dialyzer.plt is up-to-date... yes
  Proceeding with analysis...
element_dropdown.erl:14: The pattern {'button', _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _} can never match the type #dropdown{}
n2o_cowboy.erl:27: Function cookie/3 has no local return
n2o_cowboy.erl:27: The call n2o_cowboy:cookie(Cookie::any(),Value::any(),"/",0,Req::any()) will never return since it differs in the 3rd argument from the success typing arguments: (binary() | maybe_improper_list(binary() | maybe_improper_list(any(),binary() | []) | byte(),binary() | []),binary() | maybe_improper_list(binary() | maybe_improper_list(any(),binary() | []) | byte(),binary() | []),binary(),non_neg_integer(),cowboy_req:req())
n2o_cowboy.erl:31: Function delete_cookie/2 has no local return
n2o_cowboy.erl:31: The call n2o_cowboy:cookie(Cookie::any(),[],"/",0,Req::any()) will never return since it differs in the 3rd argument from the success typing arguments: (binary() | maybe_improper_list(binary() | mayb

Zert

[begin D3 = (N rem 3) == 0, D5 = (N rem 5) == 0, if not (D3 or D5) -> N; (D3 and D5) -> fizz_buzz; D3 -> fizz; D5 -> buzz end end || N <- lists:seq(1,30)].

Zert

{
  "rts": {
    "gc": {
      "par_avg_bytes_copied": {
        "val": 0,
        "type": "g"
      },
      "par_tot_bytes_copied": {
        "val": 0,
        "type": "g"

Zert

{
  "rts": {
    "gc": {
      "par_avg_bytes_copied": {
        "val": 0,
        "type": "g"
      },
      "par_tot_bytes_copied": {
        "val": 0,
        "type": "g"

Zert

./XXX.hs:14:18: Warning: Redundant bracket
Found:
  (V.length rd) + (V.length rf)
Why not:
  V.length rd + (V.length rf)

./XXX.hs:14:18: Warning: Redundant bracket
Found:
  (V.length rd) + (V.length rf)
Why not:

Zert

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE keyboard PUBLIC "" "file://localhost/System/Library/DTDs/KeyboardLayout.dtd">
<!--Last edited by Ukelele version 2.2.4 on 2013-10-17 at 14:06 (GMT+07:00)-->
<keyboard group="7" id="19888" name="Cyrillic Translit" maxout="1">
    <layouts>
        <layout first="0" last="0" modifiers="30" mapSet="138"/>
    </layouts>
    <modifierMap id="30" defaultIndex="5">
        <keyMapSelect mapIndex="0">
            <modifier keys="option command? control"/>

Zert

Configuring usb-1.3.0.0...
Building usb-1.3.0.0...
Preprocessing library usb-1.3.0.0...
[ 1 of 15] Compiling SystemEventManager ( SystemEventManager.hs, dist/dist-sandbox-7450aae9/build/SystemEventManager.o )
[ 2 of 15] Compiling Event            ( Event.hs, dist/dist-sandbox-7450aae9/build/Event.o )
[ 3 of 15] Compiling Poll             ( dist/dist-sandbox-7450aae9/build/Poll.hs, dist/dist-sandbox-7450aae9/build/Poll.o )
[ 4 of 15] Compiling Utils            ( Utils.hs, dist/dist-sandbox-7450aae9/build/Utils.o )
[ 5 of 15] Compiling System.USB.Base  ( System/USB/Base.hs, dist/dist-sandbox-7450aae9/build/System/USB/Base.o )

System/USB/Base.hs:117:55:

Zert

3> c(t).
{ok,t}
4> {ok, Pid} = t:start_link().
{ok,<0.47.0>}
5> exit(Pid, kill).
** exception exit: killed
6> exit(Pid, kill).
true
7> f().
ok