Planet = erlang.

inside

deepfoldl(F, Acc0, L) ->
    (fun NamedFun([_|_]=Elem, Acc) -> lists:foldl(NamedFun, Acc, Elem);
         NamedFun([], Acc) -> Acc;
         NamedFun(Elem, Acc) -> F(Elem, Acc)
     end)(L, Acc0).

trim_zero(<<0,Tail/binary>>) -> trim_zero(Tail);
trim_zero(B) when is_binary(B) -> B.

calls_wrapper(<<"hello",Tail/binary>>) ->
    count_ones(Tail).

%% This simple wrapper prevents context reuse in the call above. :(
count_ones(Bin) -> count_ones_1(Bin, 0).

count_ones_1(<<1, Tail/binary>>, Acc) -> count_ones_1(Tail, Acc + 1);
count_ones_1(<<_, Tail/binary>>, Acc) -> count_ones_1(Tail, Acc);
count_ones_1(<<>>, Acc) -> Acc.

bin_search_inv_1(<<CP1/utf8, BinRest/binary>>=Bin0, Cont, Sep) ->
    case BinRest of
        %% 1
        <<CP2/utf8, _/binary>> when ?ASCII_LIST(CP1, CP2) ->
            case CP1 of
                Sep ->
                    %% 2
                    bin_search_inv_1(BinRest, Cont, Sep);
                _ ->
                    %% 3
                    [Bin0|Cont]
            end;
        %% ... snip ...

1> length([{M,F,A} || {M,_} <- code:all_loaded(), {exports,Fs} <- M:module_info(), {F,A} <- Fs]).
2531
2> length([{M,F,A} || {M,_} <- code:all_loaded(), {exports,Fs} <- M:module_info(), {F,A} <- Fs]).
2539
3> {ok,2}.
{ok,2}
4> length([{M,F,A} || {M,_} <- code:all_loaded(), {exports,Fs} <- M:module_info(), {F,A} <- Fs]).
2628
iex(1)> length(for {m, _} <- :code.all_loaded, {:exports, fs} <- m.module_info(), {f, a} <- fs, do: {m, f, a})
4239
iex(2)> length(for {m, _} <- :code.all_loaded, {:exports, fs} <- m.module_info(), {f, a} <- fs, do: {m, f, a})
4319
iex(3)>
iex(1)> ms = :code.all_loaded; length(ms)
172
iex(2)> new_ms = (:code.all_loaded -- ms)
[
  {Inspect.Integer, 'path/to/Elixir.Inspect.Integer.beam'},
  {Inspect.Algebra, 'path/to/Elixir.Inspect.Algebra.beam'},
  {Inspect.Opts, 'path/to/Elixir.Inspect.Opts.beam'},
  {Inspect, 'path/to/Elixir.Inspect.beam'}
]
iex(3)>
# Get today's date
date = Date.utc_today()
year = Integer.to_string(date.year)
month = Integer.to_string(date.month)
day = Integer.to_string(date.day)

# Generate the month's full path with YYYY/MM format
month_path =
  File.cwd!()
  |> Path.join(year)
  |> Path.join(month)

# Create the month and year directories
File.mkdir_p(month_path)

# Generate the filename with today's date
filename = Path.join(month_path, day) <> ".md"

# Check existence so we don't override a file
unless File.exists?(filename) do
  # include sample header
  header = """
  ---
  date: #{Date.to_string(date)}
  ---

  To Do
  =====

  - What do you need to accomplish today?
  """

  # write to the file
  File.open(filename, [:write], fn file ->
    IO.write(file, header)
  end)
end

# Print out confirmation message
final_message = """

> Created #{Path.relative_to_cwd(filename)}
"""

IO.puts(final_message)

$ elixir todo.exs

> Created 2018/9/28.md

---
date: 2018-09-28
---

To Do
=====

- What do you need to accomplish today?

# lib/todo_builder.ex
defmodule TodoBuilder do
  def run(date) do
    year = Integer.to_string(date.year)
    month = Integer.to_string(date.month)
    day = Integer.to_string(date.day)

    month_path =
      File.cwd!()
      |> Path.join(year)
      |> Path.join(month)

    File.mkdir_p(month_path)

    filename = Path.join(month_path, day) <> ".md"

    unless File.exists?(filename) do
      header = """
      ---
      date: #{Date.to_string(date)}
      ---

      To Do
      =====

      - What do you need to accomplish today?
      """

      File.open(filename, [:write], fn file ->
        IO.write(file, header)
      end)
    end

    {:ok, filename}
  end
end

# scripts/todo.exs

{:ok, filename} =
  Date.utc_today()
  |> TodoBuilder.run()

final_message = """

> Created #{Path.relative_to_cwd(filename)}
"""

IO.puts(final_message)

# lib/mix/tasks/todo.ex
defmodule Mix.Tasks.Todo do
  use Mix.Task

  @shortdoc "Creates a new todo file with today's date"

  @moduledoc """
  Creates a new todo file with today's date

  ## Example

  mix todo
  """

  def run(_args) do
    {:ok, filename} =
      Date.utc_today()
      |> TodoBuilder.run()

    final_message = """

    > Created #{Path.relative_to_cwd(filename)}
    """

    Mix.shell().info(final_message)
  end
end

# mix.exs
def project do
  [
    app: :tasker,
    # other options
    #
    # add this line below
    escript: escript()
  ]
end

# add the entry point
defp escript do
  [main_module: Tasker.TodoCLI]
end

# lib/tasker/todo_cli.ex
defmodule Tasker.TodoCLI do
  def main(_args) do
    {:ok, filename} =
      Date.utc_today()
      |> TodoBuilder.run()

    final_message = """

    > Created #{Path.relative_to_cwd(filename)}
    """

    IO.puts(final_message)
  end
end

--flag true --option arg1

[flag: true, option: "arg1"]

-module my_lists.
-export [test/0].
test() ->
  [] = my_lists:run_length([]),
  [{a,1}] = my_lists:run_length([a]),
  [{a,1}, {b,1}] = my_lists:run_length([a, b]),
  [{a,2}] = my_lists:run_length([a, a]),
  [{a,2}, {b,1}, {a,1}] = my_lists:run_length([a, a, b, a]),
  …
  ok.
1> c(my_lists).
{ok,my_lists}
2> my_lists:test().
** exception error: undefined function my_lists:run_length/1
     in function  my_lists:test/0 (my_lists.erl, line 4)
3>
-module(your_meta_SUITE).
-include_lib("mixer/include/mixer.hrl").
-mixin([ktn_meta_SUITE]).
-export([init_per_suite/1, end_per_suite/1]).
init_per_suite(Config) -> [{application, your_app} | Config].
end_per_suite(_) -> ok.

Vitamin E FinTech Special

✨ It’s a FinTech Special ✨

COMPANY FOCUS - POA Network

COMPANY FOCUS - æternity

#OpenErlang London Party

Want more Erlang and Elixir? Alter your preferences

What’s happening in the world of FinTech?

Advantages of Functional Programming for Blockchain Protocols

Is Switzerland the secret hotspot for FinTech and Blockchain?

Video Games and Cryptocurrencies: A Perfect Marriage

Sign up for FinTech and crypto specific news!

What’s happening in the world of Erlang & Elixir

16 lessons I learnt from the BEAM - Webinar now online!

London Meetup - Extensible Elixir with Adam Lancaster

Code Mesh LDN - only one week to go!

Code BEAM Lites - Amsterdam and Munich

Lambda Days Krakow February 2019

It’s Bitcoin’s 10th birthday - Here’s what people are saying

The Classic Rivalry - Senior Devs vs Junior Devs

A Clear, Concise & Comfy Code Review Checklist

Named fun recursion

List subtraction with large operands (– operator)

Lookahead in bit-syntax matching

About Miriam

About AdRoll

Why AdRoll uses Erlang

Interview Transcript

OpenErlang; 20 Years of Open Sourced Erlang

OpenErlang Interview Series

Other Erlang Solutions Activities…

OpenErlang Interviews

About #OpenErlang

About Erlang

Interview Transcript

OpenErlang; 20 Years of Open Sourced Erlang

OpenErlang Interview Series

Other Erlang Solutions Activities…

What’s going on here?

Spawnfest 2018 is Around the Corner

Ten years later…

Higher-order Constructs

Opaque Data Structures

Test Driven Development

Meta-Testing

Test Speed

Behaviors

Tools

No Debugging

Engage with the Community

Have fun!

Thank you!

📝

☕️

About

Syndicate

Planetarium

Subscriptions

Vitamin E
FinTech Special

Want more Erlang and Elixir?
Alter your preferences

What’s happening in
the world of FinTech?

What’s happening in
the world of Erlang & Elixir