daily pastebin goal
35%
SHARE
TWEET

Untitled

a guest Mar 20th, 2019 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. In[]:= AbsoluteTiming[
  2.  Times @@@ Select[IntegerPartitions[1000, {3}],
  3.     #[[1]]^2 == #[[2]]^2 + #[[3]]^2 &]]
  4.  
  5. Out[]= {0.207187, {31875000}}
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top