all tasks

Task/User-input-Text/0DESCRIPTION

@@ -0,0 +1,3 @@
+{{selection|Short Circuit|Console Program Basics}}[[Category:Basic language learning]][[Category:Keyboard Input]] In this task, the goal is to input a string and the integer 75000, from the text console.
+
+See also: [[User input/Graphical]]

Task/User-input-Text/1META.yaml

@@ -0,0 +1,2 @@
+---
+note: Text processing

Task/User-input-Text/ALGOL-68/user-input-text.alg

@@ -0,0 +1,5 @@
+print("Enter a string: ");
+STRING s := read string;
+print("Enter a number: ");
+INT i := read int;
+~

Task/User-input-Text/AWK/user-input-text.awk

@@ -0,0 +1,5 @@
+~/src/opt/run $ awk 'BEGIN{printf "enter a string: "}{s=$0;i=$0+0;print "ok,"s"/"i}'
+enter a string: hello world
+ok,hello world/0
+75000
+ok,75000/75000

Task/User-input-Text/Ada/user-input-text-1.ada

@@ -0,0 +1,14 @@
+function Get_String return String is
+  Line : String (1 .. 1_000);
+  Last : Natural;
+begin
+  Get_Line (Line, Last);
+  return Line (1 .. Last);
+end Get_String;
+
+function Get_Integer return Integer is
+  S : constant String := Get_String;
+begin
+  return Integer'Value (S);
+  --  may raise exception Constraint_Error if value entered is not a well-formed integer
+end Get_Integer;

Task/User-input-Text/Ada/user-input-text-2.ada

@@ -0,0 +1,2 @@
+My_String  : String  := Get_String;
+My_Integer : Integer := Get_Integer;

Task/User-input-Text/AutoHotkey/user-input-text-1.ahk

@@ -0,0 +1,7 @@
+DllCall("AllocConsole")
+FileAppend, please type something`n, CONOUT$
+FileReadLine, line, CONIN$, 1
+msgbox % line
+FileAppend, please type '75000'`n, CONOUT$
+FileReadLine, line, CONIN$, 1
+msgbox % line

Task/User-input-Text/AutoHotkey/user-input-text-2.ahk

@@ -0,0 +1,23 @@
+TrayTip, Input:, Type a string:
+Input(String)
+TrayTip, Input:, Type an int:
+Input(Int)
+TrayTip, Done!, Input was recieved.
+Msgbox, You entered "%String%" and "%Int%"
+ExitApp
+Return
+
+Input(ByRef Output)
+{
+  Loop
+  {
+    Input, Char, L1, {Enter}{Space}
+    If ErrorLevel contains Enter
+      Break
+    Else If ErrorLevel contains Space
+      Output .= " "
+    Else
+      Output .= Char
+    TrayTip, Input:, %Output%
+  }
+}

Task/User-input-Text/BASIC/user-input-text.basic

@@ -0,0 +1,2 @@
+INPUT "Enter a string"; s$
+INPUT "Enter a number: ", i%

Task/User-input-Text/BBC-BASIC/user-input-text.bbc

@@ -0,0 +1,5 @@
+      INPUT LINE "Enter a string: " string$
+      INPUT "Enter a number: " number
+
+      PRINT "String = """ string$ """"
+      PRINT "Number = " ; number

Task/User-input-Text/Batch-File/user-input-text.bat

@@ -0,0 +1,3 @@
+@echo off
+set /p var=
+echo %var%

Task/User-input-Text/Befunge/user-input-text-1.bf

@@ -0,0 +1,3 @@
+<>:v:"Enter a string: "
+ ^,_ >~:1+v
+     ^    _@

Task/User-input-Text/Befunge/user-input-text-2.bf

@@ -0,0 +1,2 @@
+<>:v:"Enter a number: "
+ ^,_ & @

Task/User-input-Text/C++/user-input-text-1.cpp

@@ -0,0 +1,16 @@
+#include <iostream>
+#include <string>
+using namespace std;
+
+int main()
+{
+     // while probably all current implementations have int wide enough for 75000, the C++ standard
+     // only guarantees this for long int.
+     long int integer_input;
+     string string_input;
+     cout << "Enter an integer:  ";
+     cin >> integer_input;
+     cout << "Enter a string:  ";
+     cin >> string_input;
+     return 0;
+}

Task/User-input-Text/C++/user-input-text-2.cpp

@@ -0,0 +1 @@
+ cin >> string_input;

Task/User-input-Text/C++/user-input-text-3.cpp

@@ -0,0 +1 @@
+ getline(cin, string_input);

Task/User-input-Text/C/user-input-text.c

@@ -0,0 +1,11 @@
+#include <stdio.h>
+int main(int argc, char* argv[])
+{
+        int input;
+        if((scanf("%d", &input))==1)
+        {
+                printf("Read in %d\n", input);
+                return 1;
+        }
+        return 0;
+}

Task/User-input-Text/Clojure/user-input-text.clj

@@ -0,0 +1,4 @@
+(import '(java.util Scanner))
+(def scan (Scanner. *in*))
+(def s (.nextLine scan))
+(def n (.nextInt scan))

Task/User-input-Text/Common-Lisp/user-input-text.lisp

@@ -0,0 +1,9 @@
+(format t "Enter some text: ")
+(let ((s (read-line)))
+    (format t "You entered ~s~%" s))
+
+(format t "Enter a number: ")
+(let ((n (read)))
+    (if (numberp n)
+        (format t "You entered ~d.~%" n)
+      (format t "That was not a number.")))

Task/User-input-Text/D/user-input-text.d

@@ -0,0 +1,13 @@
+import std.stdio;
+
+void main() {
+    long number;
+    write("Enter an integer: ");
+    readf("%d", &number);
+
+    char[] str;
+    write("Enter a string: ");
+    readf(" %s\n", &str);
+
+    writeln("Read in '", number, "' and '", str, "'");
+}

Task/User-input-Text/Delphi/user-input-text.delphi

@@ -0,0 +1,22 @@
+program UserInputText;
+
+{$APPTYPE CONSOLE}
+
+uses SysUtils;
+
+var
+  s: string;
+  lStringValue: string;
+  lIntegerValue: Integer;
+begin
+  WriteLn('Enter a string:');
+  Readln(lStringValue);
+
+  repeat
+    WriteLn('Enter the number 75000');
+    Readln(s);
+    lIntegerValue := StrToIntDef(s, 0);
+    if lIntegerValue <> 75000 then
+      Writeln('Invalid entry: ' + s);
+  until lIntegerValue = 75000;
+end.

Task/User-input-Text/Erlang/user-input-text-1.erl

@@ -0,0 +1,2 @@
+{ok, [String]} = io:fread("Enter a string: ","~s").
+{ok, [Number]} = io:fread("Enter a number: ","~d").

Task/User-input-Text/Erlang/user-input-text-2.erl

@@ -0,0 +1 @@
+ String = io:get_line("Enter a string: ").

Task/User-input-Text/Euphoria/user-input-text.euphoria

@@ -0,0 +1,9 @@
+include get.e
+
+sequence s
+atom n
+
+s = prompt_string("Enter a string:")
+puts(1, s & '\n')
+n = prompt_number("Enter a number:",{})
+printf(1, "%d", n)

Task/User-input-Text/FALSE/user-input-text.false

@@ -0,0 +1,3 @@
+[[^$' =~][,]#,]w:
+[0[^'0-$$9>0@>|~][\10*+]#%]d:
+w;! d;!.

Task/User-input-Text/Factor/user-input-text.factor

@@ -0,0 +1,4 @@
+"Enter a string: " write
+readln
+"Enter a number: " write
+readln string>number

Task/User-input-Text/Falcon/user-input-text.falcon

@@ -0,0 +1,4 @@
+printl("Enter a string:")
+str = input()
+printl("Enter a number:")
+n = int(input())

Task/User-input-Text/Fantom/user-input-text.fantom

@@ -0,0 +1,18 @@
+class Main
+{
+  public static Void main ()
+  {
+    Env.cur.out.print ("Enter a string: ").flush
+    str := Env.cur.in.readLine
+    echo ("Entered :$str:")
+    Env.cur.out.print ("Enter 75000: ").flush
+    Int n
+    try n = Env.cur.in.readLine.toInt
+    catch (Err e)
+    {
+      echo ("You had to enter a number")
+      return
+    }
+    echo ("Entered :$n: which is " + ((n == 75000) ? "correct" : "wrong"))
+  }
+}

Task/User-input-Text/Forth/user-input-text-1.fth

@@ -0,0 +1,3 @@
+: INPUT$ ( n -- addr n )
+   PAD SWAP ACCEPT
+   PAD SWAP ;

Task/User-input-Text/Forth/user-input-text-2.fth

@@ -0,0 +1,4 @@
+: INPUT# ( -- u true | false )
+  0. 16 INPUT$ DUP >R
+  >NUMBER NIP NIP
+  R> <> DUP 0= IF NIP THEN ;

Task/User-input-Text/Forth/user-input-text-3.fth

@@ -0,0 +1,2 @@
+: INPUT# ( -- n true | d 1 | false )
+   16 INPUT$ SNUMBER? ;

Task/User-input-Text/Forth/user-input-text-4.fth

@@ -0,0 +1,3 @@
+: INPUT# ( -- n true | false )
+   16 INPUT$ NUMBER? NIP
+   DUP 0= IF NIP THEN ;

Task/User-input-Text/Forth/user-input-text-5.fth

@@ -0,0 +1,8 @@
+: input#
+  begin
+    refill drop bl parse-word          ( a n)
+    number error?                      ( n f)
+  while                                ( n)
+    drop                               ( --)
+  repeat                               ( n)
+;

Task/User-input-Text/Forth/user-input-text-6.fth

@@ -0,0 +1,6 @@
+: TEST
+  ." Enter your name: " 80 INPUT$ CR
+  ." Hello there, " TYPE CR
+  ." Enter a number: " INPUT# CR
+  IF   ." Your number is " .
+  ELSE ." That's not a number!" THEN CR ;

Task/User-input-Text/Fortran/user-input-text.f

@@ -0,0 +1,7 @@
+character(20) :: s
+integer :: i
+
+print*, "Enter a string (max 20 characters)"
+read*, s
+print*, "Enter the integer 75000"
+read*, i

Task/User-input-Text/Frink/user-input-text.frink

@@ -0,0 +1,2 @@
+s = input["Enter a string: "]
+i = parseInt[input["Enter an integer: "]]

Task/User-input-Text/Go/user-input-text-1.go

@@ -0,0 +1,13 @@
+package main
+
+import "fmt"
+
+func main() {
+    var s string
+    var i int
+    if _, err := fmt.Scan(&s, &i); err == nil && i == 75000 {
+        fmt.Println("good")
+    } else {
+        fmt.Println("wrong")
+    }
+}

Task/User-input-Text/Go/user-input-text-2.go

@@ -0,0 +1,38 @@
+package main
+
+import (
+    "bufio"
+    "fmt"
+    "os"
+    "strconv"
+    "strings"
+)
+
+func main() {
+    in := bufio.NewReader(os.Stdin)
+
+    fmt.Print("Enter string: ")
+    s, err := in.ReadString('\n')
+    if err != nil {
+        fmt.Println(err)
+        return
+    }
+    s = strings.TrimSpace(s)
+
+    fmt.Print("Enter 75000: ")
+    s, err = in.ReadString('\n')
+    if err != nil {
+        fmt.Println(err)
+        return
+    }
+    n, err := strconv.Atoi(strings.TrimSpace(s))
+    if err != nil {
+        fmt.Println(err)
+        return
+    }
+    if n != 75000 {
+        fmt.Println("fail:  not 75000")
+        return
+    }
+    fmt.Println("Good")
+}

Task/User-input-Text/Groovy/user-input-text.groovy

@@ -0,0 +1,2 @@
+word = System.in.readLine()
+num = System.in.readLine().toInteger()

Task/User-input-Text/Haskell/user-input-text.hs

@@ -0,0 +1,9 @@
+import System.IO (hFlush, stdout)
+main = do
+    putStr "Enter a string: "
+    hFlush stdout
+    str <- getLine
+    putStr "Enter an integer: "
+    hFlush stdout
+    num <- readLn :: IO Int
+    putStrLn $ str ++ (show num)

Task/User-input-Text/Icon/user-input-text.icon

@@ -0,0 +1,10 @@
+procedure main ()
+  writes ("Enter something: ")
+  s := read ()
+  write ("You entered: " || s)
+
+  writes ("Enter 75000: ")
+  if (i := integer (read ())) then
+    write (if (i = 75000) then "correct" else "incorrect")
+  else write ("you must enter a number")
+end

Task/User-input-Text/Io/user-input-text.io

@@ -0,0 +1,2 @@
+string := File clone standardInput readLine("Enter a string: ")
+integer := File clone standardInput readLine("Enter 75000: ") asNumber

Task/User-input-Text/J/user-input-text-1.j

@@ -0,0 +1,3 @@
+   require 'misc'            NB. load system script
+   prompt 'Enter string: '
+   0".prompt 'Enter an integer: '

Task/User-input-Text/J/user-input-text-2.j

@@ -0,0 +1,14 @@
+   prompt 'Enter string: '                    NB. output string to session
+Enter string: Hello World
+Hello World
+   0".prompt 'Enter an integer: '             NB. output integer to session
+Enter an integer: 75000
+75000
+   mystring=: prompt 'Enter string: '         NB. store string as noun
+Enter string: Hello Rosetta Code
+   myinteger=: 0".prompt 'Enter an integer: ' NB. store integer as noun
+Enter an integer: 75000
+   mystring;myinteger                         NB. show contents of nouns
+┌──────────────────┬─────┐
+│Hello Rosetta Code│75000│
+└──────────────────┴─────┘

Task/User-input-Text/Java/user-input-text-1.java

@@ -0,0 +1,10 @@
+import java.io.BufferedReader;
+import java.io.InputStreamReader;
+
+public class GetInput {
+    public static void main(String[] args) throws Exception {
+        BufferedReader sysin = new BufferedReader(new InputStreamReader(System.in));
+        int number = Integer.parseInt(sysin.readLine());
+        String string = sysin.readLine();
+    }
+}

Task/User-input-Text/Java/user-input-text-2.java

@@ -0,0 +1,9 @@
+import java.util.Scanner;
+
+public class GetInput {
+    public static void main(String[] args) {
+        Scanner stdin = new Scanner(System.in);
+        String string = stdin.nextLine();
+        int number = stdin.nextInt();
+    }
+}

Task/User-input-Text/JavaScript/user-input-text-1.js

@@ -0,0 +1,8 @@
+WScript.Echo("Enter a string");
+var str = WScript.StdIn.ReadLine();
+
+var val = 0;
+while (val != 75000) {
+    WScript.Echo("Enter the integer 75000");
+    val = parseInt( WScript.StdIn.ReadLine() );
+}

Task/User-input-Text/JavaScript/user-input-text-2.js

@@ -0,0 +1,8 @@
+print("Enter a string");
+var str = readline();
+
+var val = 0;
+while (val != 75000) {
+    print("Enter the integer 75000");
+    val = parseInt( readline() );
+}

Task/User-input-Text/Joy/user-input-text.joy

@@ -0,0 +1,4 @@
+"Enter a string: " putchars
+stdin fgets
+"Enter a number: " putchars
+stdin fgets 10 strtol.

Task/User-input-Text/Kite/user-input-text.kite

@@ -0,0 +1,2 @@
+System.file.stdout|write("Enter a String ");
+string = System.file.stdin|readline();

Task/User-input-Text/Liberty-BASIC/user-input-text.liberty

@@ -0,0 +1,2 @@
+Input "Enter a string. ";string$
+Input "Enter the value 75000.";num

Task/User-input-Text/Logo/user-input-text.logo

@@ -0,0 +1,7 @@
+make "input readlist   ; in: string 75000
+show map "number? :input  ; [false true]
+
+make "input readword   ; in: 75000
+show :input + 123       ; 75123
+make "input readword   ; in: string 75000
+show :input             ; string 75000

Task/User-input-Text/Lua/user-input-text.lua

@@ -0,0 +1,4 @@
+print('Enter a string: ')
+s = io.stdin:read()
+print('Enter a number: ')
+i = tonumber(io.stdin:read())

Task/User-input-Text/MATLAB/user-input-text.m

@@ -0,0 +1,20 @@
+>> input('Input string: ')
+Input string: 'Hello'
+
+ans =
+
+Hello
+
+>> input('Input number: ')
+Input number: 75000
+
+ans =
+
+       75000
+
+>> input('Input number, the number will be stored as a string: ','s')
+Input number, the number will be stored as a string: 75000
+
+ans =
+
+75000

Task/User-input-Text/MUMPS/user-input-text.mumps

@@ -0,0 +1,8 @@
+TXTINP
+ NEW S,N
+ WRITE "Enter a string: "
+ READ S,!
+ WRITE "Enter the number 75000: "
+ READ N,!
+ KILL S,N
+ QUIT

Task/User-input-Text/Mathematica/user-input-text.math

@@ -0,0 +1,2 @@
+mystring = InputString["give me a string please"];
+myinteger = Input["give me an integer please"];

Task/User-input-Text/Metafont/user-input-text.metafont

@@ -0,0 +1,12 @@
+string s;
+message "write a string: ";
+s := readstring;
+message s;
+message "write a number now: ";
+b := scantokens readstring;
+if b = 750:
+  message "You've got it!"
+else:
+  message "Sorry..."
+fi;
+end

Task/User-input-Text/Mirah/user-input-text.mirah

@@ -0,0 +1,3 @@
+s = System.console.readLine()
+
+puts s

Task/User-input-Text/Modula-3/user-input-text.mod3

@@ -0,0 +1,14 @@
+MODULE Input EXPORTS Main;
+
+IMPORT IO, Fmt;
+
+VAR string: TEXT;
+    number: INTEGER;
+
+BEGIN
+  IO.Put("Enter a string: ");
+  string := IO.GetLine();
+  IO.Put("Enter a number: ");
+  number := IO.GetInt();
+  IO.Put("You entered: " & string & " and " & Fmt.Int(number) & "\n");
+END Input.

Task/User-input-Text/Nemerle/user-input-text.nemerle

@@ -0,0 +1,20 @@
+using System;
+using System.Console;
+
+module Input
+{
+    Main() : void
+    {
+        Write("Enter a string:");
+        _ = ReadLine()
+
+        mutable entry = 0;
+        mutable numeric = false;
+
+        do
+        {
+            Write("Enter 75000:");
+            numeric = int.TryParse(ReadLine(), out entry);
+        } while ((!numeric) || (entry != 75000))
+    }
+}

Task/User-input-Text/NetRexx/user-input-text.netrexx

@@ -0,0 +1,17 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+checkVal = 75000
+say 'Input a string then the number' checkVal
+parse ask inString
+parse ask inNumber .
+
+say 'Input string:' inString
+say 'Input number:' inNumber
+if inNumber == checkVal then do
+  say 'Success!  Input number is as requested'
+  end
+else do
+  say 'Failure!  Number' inNumber 'is not' checkVal
+  end
+return

Task/User-input-Text/OCaml/user-input-text.ocaml

@@ -0,0 +1,5 @@
+print_string "Enter a string: ";
+let str = read_line () in
+  print_string "Enter an integer: ";
+  let num = read_int () in
+    Printf.printf "%s%d\n" str num

Task/User-input-Text/Objeck/user-input-text.objeck

@@ -0,0 +1,13 @@
+use IO;
+
+bundle Default {
+  class Hello {
+    function : Main(args : String[]) ~ Nil {
+      string := Console->GetInstance()->ReadString();
+      string->PrintLine();
+
+      number := Console->GetInstance()->ReadString()->ToInt();
+      number->PrintLine();
+    }
+  }
+}

Task/User-input-Text/Octave/user-input-text.octave

@@ -0,0 +1,15 @@
+% read a string ("s")
+s = input("Enter a string: ", "s");
+
+% read a GNU Octave expression, which is evaluated; e.g.
+% 5/7 gives 0.71429
+i = input("Enter an expression: ");
+
+% parse the input for an integer
+printf("Enter an integer: ");
+ri = scanf("%d");
+
+% show the values
+disp(s);
+disp(i);
+disp(ri);

Task/User-input-Text/Oz/user-input-text.oz

@@ -0,0 +1,14 @@
+declare
+  StdIn = {New class $ from Open.file Open.text end init(name:stdin)}
+  StringInput
+  Num = {NewCell 0}
+in
+  {System.printInfo "Enter a string: "}
+  StringInput = {StdIn getS($)}
+
+  for until:@Num == 75000 do
+     {System.printInfo "Enter 75000: "}
+     Line = {StdIn getS($)}
+  in
+     Num := try {String.toInt Line} catch _ then 0 end
+  end

Task/User-input-Text/PARI-GP/user-input-text.pari

@@ -0,0 +1,2 @@
+s=input();
+n=eval(input());

Task/User-input-Text/PHP/user-input-text.php

@@ -0,0 +1,4 @@
+#!/usr/bin/php
+<?php
+$string = fgets(STDIN);
+$integer = (int) fgets(STDIN);

Task/User-input-Text/PL-I/user-input-text.pli

@@ -0,0 +1,11 @@
+declare s character (100) varying;
+declare k fixed decimal (15);
+
+put ('please type a string:');
+get edit (s) (L);
+put skip list (s);
+
+put skip list ('please type the integer 75000');
+get list (k);
+put skip list (k);
+put skip list ('Thanks');

Task/User-input-Text/Pascal/user-input-text.pascal

@@ -0,0 +1,9 @@
+program UserInput(input, output);
+var i : Integer;
+    s : String;
+begin
+ write('Enter an integer: ');
+ readln(i);
+ write('Enter a string: ');
+ readln(s)
+end.

Task/User-input-Text/Perl-6/user-input-text.pl6

@@ -0,0 +1,2 @@
+my $str = prompt("Enter a string: ");
+my $int = prompt("Enter a integer: ");

Task/User-input-Text/Perl/user-input-text.pl

@@ -0,0 +1,4 @@
+#!/usr/bin/perl
+
+my $string = <>; # equivalent to readline(*STDIN)
+my $integer = <>;

Task/User-input-Text/PicoLisp/user-input-text.l

@@ -0,0 +1,4 @@
+(in NIL  # Guarantee reading from standard input
+   (let (Str (read)  Num (read))
+      (prinl "The string is: \"" Str "\"")
+      (prinl "The number is: " Num) ) )

Task/User-input-Text/Pike/user-input-text.pike

@@ -0,0 +1,6 @@
+int main(){
+   write("Enter a String: ");
+   string str = Stdio.stdin->gets();
+   write("Enter 75000: ");
+   int num = Stdio.stdin->gets();
+}

Task/User-input-Text/Pop11/user-input-text.pop11

@@ -0,0 +1,9 @@
+;;; Setup item reader
+lvars itemrep = incharitem(charin);
+lvars s, c, j = 0;
+;;; read chars up to a newline and put them on the stack
+while (charin() ->> c) /= `\n` do j + 1 -> j ; c endwhile;
+;;; build the string
+consstring(j) -> s;
+;;; read the integer
+lvars i = itemrep();

Task/User-input-Text/PostScript/user-input-text-1.ps

@@ -0,0 +1,6 @@
+%open stdin for reading (and name the channel "kbd"):
+/kbd (%stdin) (r) file def
+%make ten-char buffer to read string into:
+/buf (..........) def
+%read string into buffer:
+kbd buf readline

Task/User-input-Text/PostScript/user-input-text-2.ps

@@ -0,0 +1,2 @@
+%if the read was successful, convert the string to integer:
+{cvi} if

Task/User-input-Text/PowerShell/user-input-text.psh

@@ -0,0 +1,2 @@
+$string = Read-Host "Input a string"
+[int]$number = Read-Host "Input a number"

Task/User-input-Text/PureBasic/user-input-text.purebasic

@@ -0,0 +1,16 @@
+If OpenConsole()
+  ; Declare a string and a integer to be used
+  Define txt.s, num.i
+
+  Print("Enter a string: ")
+  txt=Input()
+
+  Repeat
+    Print("Enter the number 75000: ")
+    num=Val(Input()) ; Converts the Input to a Value with Val()
+  Until num=75000
+  ; Check that the user really gives us 75000!
+
+  Print("You made it!")
+  Delay(3000): CloseConsole()
+EndIf

Task/User-input-Text/Python/user-input-text-1.py

@@ -0,0 +1 @@
+   string = raw_input("Input a string: ")

Task/User-input-Text/Python/user-input-text-2.py

@@ -0,0 +1 @@
+   string = input("Input a string: ")

Task/User-input-Text/Python/user-input-text-3.py

@@ -0,0 +1 @@
+   number = input("Input a number: ")  # Deprecated, please don't use.

Task/User-input-Text/Python/user-input-text-4.py

@@ -0,0 +1 @@
+   number = eval(input("Input a number: ")) # Evil, please don't use.

Task/User-input-Text/Python/user-input-text-5.py

@@ -0,0 +1 @@
+   number = float(raw_input("Input a number: "))

Task/User-input-Text/Python/user-input-text-6.py

@@ -0,0 +1 @@
+   number = float(input("Input a number: "))

Task/User-input-Text/R/user-input-text.r

@@ -0,0 +1,2 @@
+stringval <- readline("String: ")
+intval <- as.integer(readline("Integer: "))

Task/User-input-Text/REBOL/user-input-text.rebol

@@ -0,0 +1,29 @@
+REBOL [
+	Title: "Textual User Input"
+	Author: oofoe
+	Date: 2009-12-07
+	URL: http://rosettacode.org/wiki/User_Input_-_text
+]
+
+s: n: ""
+
+; Because I have several things to check for, I've made a function to
+; handle it. Note the question mark in the function name, this convention
+; is often used in Forth to indicate test of some sort.
+
+valid?: func [s n][
+	error? try [n: to-integer n] ; Ignore error if conversion fails.
+	all [0 < length? s  75000 = n]]
+
+; I don't want to give up until I've gotten something useful, so I
+; loop until the user enters valid data.
+
+while [not valid? s n][
+	print "Please enter a string, and the number 75000:"
+	s: ask "string: "
+	n: ask "number: "
+]
+
+; It always pays to be polite...
+
+print rejoin [ "Thank you. Your string was '" s "'."]

Task/User-input-Text/REXX/user-input-text.rexx

@@ -0,0 +1,11 @@
+/*REXX program gets a  string  and the  number 75000  from the console. */
+
+say 'Please enter a text string:'      /*show prompt for a text string. */
+parse pull userString                  /*get the user text and store it.*/
+
+       do until userNumber=75000                 /*repeat until correct.*/
+       say                                       /*display a blank line.*/
+       say 'Please enter the number 75000'       /*show the nice prompt.*/
+       parse pull userNumber                     /*get the user text.   */
+       end   /*until*/                           /*now, check if it's OK*/
+                                       /*stick a fork in it, we're done.*/

Task/User-input-Text/Rascal/user-input-text.rascal

@@ -0,0 +1,8 @@
+import util::IDE;
+public void InputConsole(){
+    x = "";
+    createConsole("Input Console",
+                  "Welcome to the Input Console\nInput\> ",
+                  str (str inp) {x = "<inp == "75000" ? "You entered 75000" : "You entered a string">";
+                 		 return "<x>\n<inp>\nInput\>";});
+}

Task/User-input-Text/Raven/user-input-text.raven

@@ -0,0 +1,2 @@
+'Input a string: '   print expect as str
+'Input an integer: ' print expect 0 prefer as num

Task/User-input-Text/Retro/user-input-text.retro

@@ -0,0 +1,6 @@
+: example ( "- )
+  remapping off
+  "Enter a string: " puts 10 accept tib tempString
+  [ "Enter 75000: " puts getToken toNumber 75000 = cr ] until
+  "Your string was: '%s'\n" puts
+  remapping on ;

Task/User-input-Text/Ruby/user-input-text.rb

@@ -0,0 +1,6 @@
+print "Enter a string: "
+s = gets
+print "Enter an integer: "
+i = gets.to_i   # If string entered, will return zero
+puts "String  = #{s}"
+puts "Integer = #{i}"

Task/User-input-Text/SNOBOL4/user-input-text.sno

@@ -0,0 +1,6 @@
+     output = "Enter a string:"
+     str = trim(input)
+     output = "Enter an integer:"
+     int = trim(input)
+     output = "String: " str " Integer: " int
+end

Task/User-input-Text/Scala/user-input-text.scala

@@ -0,0 +1,4 @@
+print("Enter a number: ")
+val i=Console.readInt
+print("Enter a string: ")
+val s=Console.readLine

Task/User-input-Text/Scheme/user-input-text.ss

@@ -0,0 +1,4 @@
+(define str (read))
+(define num (read))
+(display "String = ") (display str)
+(display "Integer = ") (display num)

Task/User-input-Text/Seed7/user-input-text.seed7

@@ -0,0 +1,12 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: integer_input is 0;
+    var string: string_input is "";
+  begin
+    write("Enter an integer: ");
+    readln(integer_input);
+    write("Enter a string: ");
+    readln(string_input);
+  end func;

Task/User-input-Text/Slate/user-input-text.slate

@@ -0,0 +1,7 @@
+print: (query: 'Enter a String: ').
+[| n |
+  n: (Integer readFrom: (query: 'Enter an Integer: ')).
+  (n is: Integer)
+    ifTrue: [print: n]
+    ifFalse: [inform: 'Not an integer: ' ; n printString]
+] do.

Task/User-input-Text/Smalltalk/user-input-text.st

@@ -0,0 +1,5 @@
+'Enter a number: ' display.
+a := stdin nextLine asInteger.
+
+'Enter a string: ' display.
+b := stdin nextLine.

Task/User-input-Text/Standard-ML/user-input-text.ml

@@ -0,0 +1,7 @@
+print "Enter a string: ";
+let val str = valOf (TextIO.inputLine TextIO.stdIn) in (* note: this keeps the trailing newline *)
+  print "Enter an integer: ";
+  let val num = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) in
+    print (str ^ Int.toString num ^ "\n")
+  end
+end

Task/User-input-Text/TI-83-BASIC/user-input-text.ti-83

@@ -0,0 +1,6 @@
+  :Input "Enter a string:",Str1
+  :Prompt i
+  :If(i ≠ 75000): Then
+  :Disp "That isn't 75000"
+  :Else
+  :Stop

Task/User-input-Text/TI-89-BASIC/user-input-text.ti-89

@@ -0,0 +1,11 @@
+Prgm
+  InputStr "Enter a string", s
+  Loop
+    Prompt integer
+    If integer ≠ 75000 Then
+      Disp "That wasn't 75000."
+    Else
+      Exit
+    EndIf
+  EndLoop
+EndPrgm