fork download
copy 
  1. 	PLEASE DO ,1 <- #1
  2. 	PLEASE DO .4 <- #0
  3. 	PLEASE DO .5 <- #0
  4. 	PLEASE DO .99 <- #0
  5. 	DO COME FROM (30)
  6. 	DO COME FROM (31)
  7. 	DO WRITE IN ,1
  8. 	DO .1 <- ,1SUB#1
  9. 	DO .2 <- .4
  10. 	DO (1000) NEXT
  11. 	DO .4 <- .3~#255
  12. 	DO (10) NEXT
  13. (42)	DO .1 <- .1
  14. (20)	DO .42 <- "&'&.4~#26'$#1"
  15. 	PLEASE RESUME "?.42$#1"~#3
  16. (10)	DO (20) NEXT
  17. 	DO FORGET #1
  18. 	PLEASE COME FROM (42)	
  19. 	PLEASE STASH .1+.2+.3
  20. 	DO .1 <- .4
  21. 	DO .2 <- #50
  22. 	DO (1010) NEXT
  23. 	DO (100) NEXT	
  24. 	PLEASE STASH .1+.2+.3
  25. 	DO .1 <- .99
  26. 	DO .2 <- #52
  27. 	DO (1010) NEXT
  28. 	DO (101) NEXT
  29. 	PLEASE GIVE UP
  30. (201)	DO .3 <- '.3~.3'~#1
  31. 	PLEASE RESUME "?.3$#2"~#3
  32. (101)	DO (201) NEXT
  33. 	DO FORGET #1
  34. (32)	PLEASE RETRIEVE .1+.2+.3
  35. (200)	DO .3 <- '.3~.3'~#1
  36. 	PLEASE RESUME "?.3$#2"~#3
  37. (100)	DO (200) NEXT
  38. 	DO FORGET #1
  39. 	DO COME FROM (32)	
  40. 	PLEASE RETRIEVE .1+.2+.3
  41. 	DO (102) NEXT
  42. (31)	DO .99 <- .4
  43. (202)	DO .98 <- '.99~.99'~#1
  44. 	PLEASE RESUME "?.98$#2"~#3
  45. (102)	DO (202) NEXT
  46. 	DO FORGET #1
  47. 	DO .3 <- !99~#15'$!99~#240'
  48. 	DO .3 <- !3~#15'$!3~#240'
  49. 	DO .2 <- !3~#15'$!3~#240'
  50. 	DO .1 <- .5
  51. 	DO (1010) NEXT
  52. 	DO .5 <- .2
  53. 	DO ,1SUB#1 <- .3
  54. 	PLEASE READ OUT ,1
  55. (30)	DO .99 <- .4
Success #stdin #stdout 0s 4264KB
comments (?)
stdin
copy 
1
2
10
42
11
stdout
copy 
1
2
10
https://ideone.com/RQ3zCQ
language:
Intercal (ick 0.3)
created:
7 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!