fork(1) download
copy 
  1. n=[3,-1,2]; %18
  2. M=[1:12,14:2:28,36,48,72,80:10:1630,1638];L=11;for k=n,L=min(max(L+k,1),180);end;M(L)
  3.  
  4. n=[2]; %14
  5. M=[1:12,14:2:28,36,48,72,80:10:1630,1638];L=11;for k=n,L=min(max(L+k,1),180);end;M(L)
  6.  
  7. n=[-1]; %10
  8. M=[1:12,14:2:28,36,48,72,80:10:1630,1638];L=11;for k=n,L=min(max(L+k,1),180);end;M(L)
  9.  
  10. n=[13]; %80
  11. M=[1:12,14:2:28,36,48,72,80:10:1630,1638];L=11;for k=n,L=min(max(L+k,1),180);end;M(L)
  12.  
  13. n=[-11,1]; %2
  14. M=[1:12,14:2:28,36,48,72,80:10:1630,1638];L=11;for k=n,L=min(max(L+k,1),180);end;M(L)
  15.  
  16. n=[11,-1]; %36
  17. M=[1:12,14:2:28,36,48,72,80:10:1630,1638];L=11;for k=n,L=min(max(L+k,1),180);end;M(L)
  18.  
  19. n=[170,-1]; %1630
  20. M=[1:12,14:2:28,36,48,72,80:10:1630,1638];L=11;for k=n,L=min(max(L+k,1),180);end;M(L)
  21.  
  22. n=[2000,-2,100]; %1638
  23. M=[1:12,14:2:28,36,48,72,80:10:1630,1638];L=11;for k=n,L=min(max(L+k,1),180);end;M(L)
  24.  
Success #stdin #stdout 0.22s 103360KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
ans =  18
ans =  14
ans =  10
ans =  80
ans =  2
ans =  36
ans =  1630
ans =  1638
https://ideone.com/tYVO9O
language:
Octave (octave 4.4.1)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!