-module(chen).
-export([pythag/1]).
pythag(N)->
[{A,B,C}||
A<- lists:seq(1,N),
B<- lists:seq(1,N),
C<- lists:seq(1,N),
A+B+C=<N,
AA+BB=:=C*C
].
Erlang程序设计-----【瑞典】Joe Armstrong著 牛化成译【M】北京:中国工信出版社和人民邮电出版社
-module(chen).
-export([pythag/1]).
pythag(N)->
[{A,B,C}||
A<- lists:seq(1,N),
B<- lists:seq(1,N),
C<- lists:seq(1,N),
A+B+C=<N,
AA+BB=:=C*C
].
Erlang程序设计-----【瑞典】Joe Armstrong著 牛化成译【M】北京:中国工信出版社和人民邮电出版社