blob: 38ef6ef97629f3bb8a771745d0d42e8261ff7d5f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
%%%-------------------------------------------------------------------
%%% File : list_match.erl
%%% Author : Tobias Lindahl <[email protected]>
%%% Description :
%%%
%%% Created : 12 Mar 2007 by Tobias Lindahl <[email protected]>
%%%-------------------------------------------------------------------
-module(list_match).
-export([t/0]).
t() ->
t([1,2,3,4]).
t([]) ->
ok;
t([H|T]) when is_integer(H) ->
t(T);
t([_|T]) ->
t(T).
|