Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # Square Triple drill
- function st(Q::Array{Int64, 1})
- N = length(Q)
- for i = 1:(N-2)
- if Q[i] == 0; continue; end
- for j = (i+1):(N-1)
- if Q[j] == 0; continue; end
- for k = (j+1):N
- if (Q[k] != 0) && (Q[i] * Q[j] == Q[k]^2); println(Q[[i,j,k]]); println(Q[[j,i,k]]); end
- end
- end
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement