Dumpz.org

HTML Copy To Clipboarddone!

<div class="highlight"><pre>-module(simple).
-export([collect_simple/1]).

try_div(_,[]) -&gt; true;
try_div(N,_) when N&gt;0, N&lt;3 -&gt; true;
try_div(N,[1|T]) -&gt; try_div (N, T);
try_div(N,[H|T]) -&gt;
	Lim = 0.1+math:sqrt(N),
	if
		H&gt;Lim -&gt; true;
		N rem H == 0 -&gt; false;
		true -&gt; try_div (N,T)
	end.

find_simple (I, N, Prev) when I &gt; N -&gt; Prev;
find_simple (I, N, Prev) -&gt;
	DivRes=try_div (I,Prev),
	if
		DivRes -&gt; NewPrev=lists:append(Prev,[I]);
		true -&gt; NewPrev = Prev
	end,
	find_simple (I+1, N, NewPrev).

collect_simple(N) when N&lt;1 -&gt; [];
collect_simple(N) -&gt; find_simple (1, N, []).
</pre></div>
 Colored with <a style="color: #333" href="http://dumpz.org">dumpz.org</a>

BBCODE Copy To Clipboarddone!

-[color=#999999][b]module[/b][/color](simple).
-[color=#999999][b]export[/b][/color]([collect_simple[color=#666666]/[/color][color=#666666]1[/color]]).

[color=#0000FF]try_div[/color](_,[]) [color=#666666]->[/color] true;
[color=#0000FF]try_div[/color]([color=#19177C]N[/color],_) [color=#008000][b]when[/b][/color] [color=#19177C]N[/color][color=#666666]>[/color][color=#666666]0[/color], [color=#19177C]N[/color][color=#666666]<[/color][color=#666666]3[/color] [color=#666666]->[/color] true;
[color=#0000FF]try_div[/color]([color=#19177C]N[/color],[[color=#666666]1[/color]|[color=#19177C]T[/color]]) [color=#666666]->[/color] try_div ([color=#19177C]N[/color], [color=#19177C]T[/color]);
[color=#0000FF]try_div[/color]([color=#19177C]N[/color],[[color=#19177C]H[/color]|[color=#19177C]T[/color]]) [color=#666666]->[/color]
	[color=#19177C]Lim[/color] [color=#666666]=[/color] [color=#666666]0[/color].[color=#666666]1[/color][color=#666666]+[/color][color=#0000FF][b]math[/b][/color]:sqrt([color=#19177C]N[/color]),
	[color=#008000][b]if[/b][/color]
		[color=#19177C]H[/color][color=#666666]>[/color][color=#19177C]Lim[/color] [color=#666666]->[/color] true;
		[color=#19177C]N[/color] [color=#AA22FF][b]rem[/b][/color] [color=#19177C]H[/color] [color=#666666]==[/color] [color=#666666]0[/color] [color=#666666]->[/color] false;
		true [color=#666666]->[/color] try_div ([color=#19177C]N[/color],[color=#19177C]T[/color])
	[color=#008000][b]end[/b][/color].

[color=#0000FF]find_simple[/color] ([color=#19177C]I[/color], [color=#19177C]N[/color], [color=#19177C]Prev[/color]) [color=#008000][b]when[/b][/color] [color=#19177C]I[/color] [color=#666666]>[/color] [color=#19177C]N[/color] [color=#666666]->[/color] [color=#19177C]Prev[/color];
[color=#0000FF]find_simple[/color] ([color=#19177C]I[/color], [color=#19177C]N[/color], [color=#19177C]Prev[/color]) [color=#666666]->[/color]
	[color=#19177C]DivRes[/color][color=#666666]=[/color]try_div ([color=#19177C]I[/color],[color=#19177C]Prev[/color]),
	[color=#008000][b]if[/b][/color]
		[color=#19177C]DivRes[/color] [color=#666666]->[/color] [color=#19177C]NewPrev[/color][color=#666666]=[/color][color=#0000FF][b]lists[/b][/color]:append([color=#19177C]Prev[/color],[[color=#19177C]I[/color]]);
		true [color=#666666]->[/color] [color=#19177C]NewPrev[/color] [color=#666666]=[/color] [color=#19177C]Prev[/color]
	[color=#008000][b]end[/b][/color],
	find_simple ([color=#19177C]I[/color][color=#666666]+[/color][color=#666666]1[/color], [color=#19177C]N[/color], [color=#19177C]NewPrev[/color]).

[color=#0000FF]collect_simple[/color]([color=#19177C]N[/color]) [color=#008000][b]when[/b][/color] [color=#19177C]N[/color][color=#666666]<[/color][color=#666666]1[/color] [color=#666666]->[/color] [];
[color=#0000FF]collect_simple[/color]([color=#19177C]N[/color]) [color=#666666]->[/color] find_simple ([color=#666666]1[/color], [color=#19177C]N[/color], []).

--------------------------------------
Colored with http://dumpz.org

Light HTML Copy To Clipboarddone!

That method generates HTML with CSS classes. Hence you'll need the style sheet file

<div class="highlight"><pre>-module(simple).
-export([collect_simple/1]).

try_div(_,[]) -&gt; true;
try_div(N,_) when N&gt;0, N&lt;3 -&gt; true;
try_div(N,[1|T]) -&gt; try_div (N, T);
try_div(N,[H|T]) -&gt;
	Lim = 0.1+math:sqrt(N),
	if
		H&gt;Lim -&gt; true;
		N rem H == 0 -&gt; false;
		true -&gt; try_div (N,T)
	end.

find_simple (I, N, Prev) when I &gt; N -&gt; Prev;
find_simple (I, N, Prev) -&gt;
	DivRes=try_div (I,Prev),
	if
		DivRes -&gt; NewPrev=lists:append(Prev,[I]);
		true -&gt; NewPrev = Prev
	end,
	find_simple (I+1, N, NewPrev).

collect_simple(N) when N&lt;1 -&gt; [];
collect_simple(N) -&gt; find_simple (1, N, []).
</pre></div>
 Colored with <a style="color: #333" href="http://dumpz.org">dumpz.org</a>

Habrahabr.ru HTML Copy To Clipboarddone!

Use that HTML for publications on habrahabr.ru

<blockquote><code>-module(simple).
-export([collect_simple/1]).

try_div(_,[])&nbsp;-&gt;&nbsp;true;
try_div(N,_)&nbsp;when&nbsp;N&gt;0,&nbsp;N&lt;3&nbsp;-&gt;&nbsp;true;
try_div(N,[1|T])&nbsp;-&gt;&nbsp;try_div&nbsp;(N,&nbsp;T);
try_div(N,[H|T])&nbsp;-&gt;
&nbsp;&nbsp;&nbsp;&nbsp;Lim&nbsp;=&nbsp;0.1+math:sqrt(N),
&nbsp;&nbsp;&nbsp;&nbsp;if
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;H&gt;Lim&nbsp;-&gt;&nbsp;true;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;N&nbsp;rem&nbsp;H&nbsp;==&nbsp;0&nbsp;-&gt;&nbsp;false;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;true&nbsp;-&gt;&nbsp;try_div&nbsp;(N,T)
&nbsp;&nbsp;&nbsp;&nbsp;end.

find_simple&nbsp;(I,&nbsp;N,&nbsp;Prev)&nbsp;when&nbsp;I&nbsp;&gt;&nbsp;N&nbsp;-&gt;&nbsp;Prev;
find_simple&nbsp;(I,&nbsp;N,&nbsp;Prev)&nbsp;-&gt;
&nbsp;&nbsp;&nbsp;&nbsp;DivRes=try_div&nbsp;(I,Prev),
&nbsp;&nbsp;&nbsp;&nbsp;if
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DivRes&nbsp;-&gt;&nbsp;NewPrev=lists:append(Prev,[I]);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;true&nbsp;-&gt;&nbsp;NewPrev&nbsp;=&nbsp;Prev
&nbsp;&nbsp;&nbsp;&nbsp;end,
&nbsp;&nbsp;&nbsp;&nbsp;find_simple&nbsp;(I+1,&nbsp;N,&nbsp;NewPrev).

collect_simple(N)&nbsp;when&nbsp;N&lt;1&nbsp;-&gt;&nbsp;[];
collect_simple(N)&nbsp;-&gt;&nbsp;find_simple&nbsp;(1,&nbsp;N,&nbsp;[]).
</code></blockquote>Colored with <a href="http://dumpz.org">dumpz.org</a>