blob: 8fa1ce9ce0a6ca89d8411172b413e4d6c4822b18 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
%%-----------------------------------------------------------------------
%% Author: Kostis Sagonas (Wed Aug 23 14:54:25 CEST 2006)
%%
%% Program to test failing arithmetic comparisons with a number of the
%% wrong type. The first case is handled properly; the second one is not.
%% Why?
%%-----------------------------------------------------------------------
-module(failing_guard1).
-export([n/1]).
n(N) when (N / 2) =:= 2 -> multiple_of_four;
n(N) when (N div 3) =:= 2.0 -> multiple_of_six;
n(N) when (N rem 3) =:= 2.0 -> multiple_of_six;
n(N) when is_number(N) -> other_number.
|