Thread: 500 Ways to Print 1 to 10

What's the fun if you arrive at the correct solution the first time

46. Java

public static void main(String[] args)
{
     int[] numbers = new int[10];
     boolean foundAnswer = false;
     while(!foundAnswer)
     {
          for(int i = 0; i < numbers.length; i++)
          {
               numbers[i] =(int)( Math.random() * 10 + 1);
          }
          sort(numbers);
          foundAnswer = true;
          for(int i = 1; i < numbers.length && foundAnswer; i++)
          {
               if(numbers[i-1] == numbers[i])
               {
                    foundAnswer = false;
               }
          }
     }
     System.out.println(numbers);
}
 
public static void sort(int[] numbers)
{
     for (int i = 0; i < numbers.length; i++)
     {
          int min = 0;
          for(int j = i; j < numbers.length; j++)
          {
               if(numbers[min] > numbers[j])
               {
                    min = j;
               }
          }
          int temp = numbers[min];
          numbers[min] = numbers[i];
          numbers[i] = temp;
     }
}

47. Java

More math...

int value = 2;
while(value <= 1024)
{
     System.out.println(Math.log(value) / Math.log(2));
     value <<= 1;
}

#54. Arduino C:

int counter = 1;
void setup()
{
    Serial.begin(38400);
}
 
void loop()
{
    Serial.println(counter);
    ++counter;
    while(counter > 10)
    {}
}

Here it goes (using do....while)

class One2Ten
          {
                 public void display()
                    {
                         int a = 1;
                               do
                                       {
                                           System.out.println(a);a++;}
                               while(a<11);
                    }
          }

print(N) :- N < 11, write(N), N is N+1, print(N).
?-print(1).

A PROLOG solution.

#64 Java

 
//package textField;
 
import java.awt.BorderLayout;
 
import javax.swing.JFrame;
import javax.swing.JTextField;
 
/**
 * Prints one through ten with a JTextField
 * @author TJStretch
 */
public class OneToTenTextfield extends JFrame
{
	//Variables
	/**
	 * The JTextField that 1 through 10 will be printed on
	 */
	private JTextField txtField;
	/**
	 * Randomly generated serial version UID
	 */
	private static final long serialVersionUID = -5841505335372992754L;
 
	//Constructors
	public OneToTenTextfield() 
	{
		setLayout(new BorderLayout());
		setSize(125, 100);
		setOneToTen();
		add(txtField, BorderLayout.CENTER);
		setVisible(true);
	}
        //Methods
	/**
	 * Initialize and set txtField to be ready for use.
	 */
	private void setOneToTen() 
	{
		if(txtField == null)
			txtField = new JTextField();
		String theStr = "";
		for(int i = 1; i < 11; i++)
			theStr += i+" ";
		txtField.setText(theStr);
		txtField.setEditable(false);
	}
 
	/**
	 * @param args
	 */
	public static void main(String[] args) 
	{
		new OneToTenTextfield();
	}
 
}

65 C#:

        delegate void count(count func, int i);
 
        public static void doCount(count b, int i)
        {
            Console.Out.WriteLine(i);
            if(i < 10)
                b(b, i + 1);
        }
 
        static void Main(string[] args)
        {
            new count(doIt).Invoke(doIt, 1);
            Console.In.ReadLine();
        }

#66 (I think---are we supposed to assign the numbers or is it done by some referee?): "seq" command

Oh, well...


Is this allowed?

For any system with seq utility (All UNIX systems that I have ever used had this. It is also in the GNU core utilities that are supplied with all Linux distros with which I am familiar.)

From a command line (or, you could put it in a shell script):

seq 1 10

Cheers!

Z

#67: Busybox

Similar to, but not exactly the same as the previous post (so I think it should be counted separately): For systems with busybox installed. (Many embedded Linux systems that don't have the full complement of GNU core utilities and even some desktop Linux systems have busybox.) On embedded systems, the seq command is probably a symbolic link to busybox, but it can be invoked explicitly as an argument to busybox, assuming its applet was compiled in, which it always is for my systems.)

From a command line or you could put it in a shell script):

busybox seq 1 10

Cheers!

Z

#68: FORTRAN II

From the days when FORTRAN was a powerful acronym (not the sissified proper noun Fortran) and versions were designated with Roman Numerals (like world wars), here it is in FORTRAN II. Line printers in common use and the IBM 026 key punch machines used in Computer Centers of the day did not have lower case alphabetical characters, so it looks like we were always SHOUTING.

C FORTRAN II FROM 1967
C
C  FROM ZAPHOD_B IN 2012
C
      WRITE(6,101) (I,I=1,10)
101   FORMAT(1X,I10)
      END

Can still be compiled with GNU g77. I just executed it on my Linux workstation. It still works the way it did way back when. Or least that's what my Earth logbook from the 20th century indicates.

Back in the day. working on MainFrames, logical unit 6 was (almost) always the line printer, but could (usually) be changed by JCL (Job Control Language). Modern Fortran compiler installations on workstations (including GNU g77 on my Linux boxes) are, typically, set up to connect logical unit 6 to standard output (console window).

The almost magical (mystical, at least) formidable power of the FORTRAN FORMAT I/O interpreter still gasts my flabber after all these decades.


Cheers!

Z

#69: Fortran 77

Fortran 77. Compile with GNU g77. (Also works with compilers for later versions, like Fortran 90, but I guess that wouldn't be allowed as a separate count)

C  Fortran 77
C
C  Zaphod_b
C
      Program PrintSequence
 
      do  i=1,10
        print *, i
      end do
      Stop
 
      End Program PrintSequence

Cheers!

Z

#70: Fortran 90

Compile with GNU gfortran

!  Fortran 90 with a do loop
!
!  Zaphod_b
!
        Program PrintSequence
 
        do  i=1,10
          write(*,'(1x,i0)') i
        end do
        Stop
 
        End Program PrintSequence

Cheers!


Z