• Fortran

b = .true.
do i=1, len(s)
  if (s(i:i) < '0' .or. s(i:i) > '9') then
    b = .false.
    exit
  end if
end do

• Ada

B := (for all Char of S => Char in '0' .. '9');

• C

bool b = true;
const int n = strlen(s);
for (int i = 0; i < n; ++i) {
  if (!isdigit(s[i])) {
    b = false;
    break;
  }
}

• C

char b = 0;
int n = strlen(s);
for (int i = 0; i < n; i++) {
	if (! (b = (s[i] >= '0' && s[i] <= '9')))
		break;
}

• Clojure

(def b (every? #(Character/isDigit %) s))

• C++

bool b = false;
if (! s.empty() && std::all_of(s.begin(), s.end(), [](char c){return std::isdigit(c);})) {
    b = true;
}

• C#

bool b = s.All(char.IsDigit);

• D

bool b = s.all!isDigit;

• D

bool b = s.filter!(a => !isDigit(a)).empty;

• Dart

final b = RegExp(r'^[0-9]+$').hasMatch(s);

• Elixir

b =  Regex.match?(~r{\A\d*\z}, s)

• Erlang

{_,Rest} = string:to_integer(S),
B = Rest == "".

• Erlang

Str = "21334",
[Ch || Ch <- Str, Ch < $0 orelse Ch > $9] == [].

• Go

isNotDigit := func(c rune) bool { return c < '0' || c > '9' }
b := strings.ContainsFunc(s, isNotDigit) 

• Go

b := true
for _, c := range s {
	if c < '0' || c > '9' {
		b = false
		break
	}
}

• Haskell

b = all isDigit s

• JS

var b = /^[0-9]+$/.test(s);

• Java

boolean b = s.matches("\\d+");

• Java

boolean b = s.matches("[0-9]+");

• Java

boolean b = s.chars()
    .allMatch(Character::isDigit);
if (s.length() == 0) b = false;

• Java

String d = "0123456789";
int i, n = s.length();
boolean b = n != 0;
for (i = 0; i < n; ++i)
    if (d.indexOf(s.charAt(i)) == -1) {
        b = false;
        break;
    }

• Java

boolean b = s.matches("[0-9]*");

• Kotlin

fun String?.isOnlyDigits() = !this.isNullOrEmpty() && this.all { Character.isDigit(it) }

• Kotlin

val regex = Regex("[0-9]*")
val b = regex.matches(s)

• Lisp

(setf b (every #'digit-char-p s))

• Lua

b = tonumber(s) ~= nil

• Obj-C

id nodigit=[[NSCharacterSet characterSetWithRange:NSMakeRange('0',10)].invertedSet copy];
BOOL b=![s rangeOfCharacterFromSet:nodigit].length;

• PHP

$b = preg_match('/\D/', $s) !== 1;

• Pascal

var
  S: String;
  C: Char;
  B: Boolean;

  for C in S do
  begin
    B := C in ['0'..'9'];
    if not B then Break;
  end;

• Perl

my $b = $s =~ /^\d*$/;

• Python

b = s.isdigit()

• Python

b = all(x in digits for x in s)

• Python

try:
  int(s)
  b = true
except:
  b = false

• Ruby

b = s.count("^0-9").zero?

• Rust

let b = s.bytes().all(|c| c.is_ascii_digit());

• Rust

let chars_are_numeric: Vec<bool> = s.chars()
				.map(|c|c.is_numeric())
				.collect();
let b = !chars_are_numeric.contains(&false);

• Rust

let b = s.chars().all(char::is_numeric);

• Scala

def onlyDigits(s: String) = s.forall(_.isDigit) 

• Smalltalk

b := s allSatisfy: #isDigit

• VB

Dim x As String = "123456"
Dim b As Boolean = IsNumeric(x)