• Clojure

(defn f [& [x]]
  (if (integer? x)
    (println "Present" x)
    (println "Not present")))

• Clojure

(defn f 
  ([] (println "Not present"))
  ([x] (println "Present" x)))

• C++

void f(std::optional<int> x = {}) {
  std::cout << (x ? "Present" + std::to_string(x.value()) : "Not Present");
}

• C++

void f(std::optional<int> x = {}) {
  if (x) {
    std::cout << "Present" << x.value();
  } else {
    std::cout << "Not present";
  }
}

• C#

void f(int? x = null)
{
    Console.WriteLine(x.HasValue ? $"Present {x}" : "Not Present");
}

• Dart

void f({int? x}) => print(x == null ? "Not present" : "Present");

• Fortran

subroutine f(x)
  integer, optional :: x
  if (present(x)) then
    print *,"Present", x
  else
    print *,"Not present"
  end if
end subroutine f
   

• Go

func f(x ...int) {
	if len(x) > 0 {
		println("Present", x[0])
	} else {
		println("Not present")
	}
}

• JS

function f(x) {
	console.log(x ? `Present: ${x}` : 'Not present');
}

• Java

private void f(Integer x) {
    if (x != null) {
        System.out.println("Present " + x);
    } else {
        System.out.println("Not present");
    }
}

• Lua

function f( x )
	if x then
		print("Present", x)
	else
		print("Not present")
	end
end

• PHP

function f(?int $x = null) {
    echo $x ? 'Present' . $x : 'Not present';
}

• Pascal

procedure f; overload;
begin
  writeln('not present');
end;

procedure f(x: integer); overload;
begin
  writeln('present');
end;

• Perl

sub f {
    my $x = shift;
    if (defined $x) {
        print("Present $x\n");
    }
    else {
        print("Not Present\n");
    }
}

• Python

def f(x=None):
    if x is None:
        print("Not present")
    else:
        print("Present", x)

• Ruby

def f( x=nil )
  puts x ? "present" : "not present"
end

• Rust

fn f(x: Option<()>) {
    match x {
        Some(x) => println!("Present {}", x),
        None => println!("Not present"),
    }
}

• VB

Sub f(Optional x As Integer? = Nothing)
    Console.WriteLine(If(x.HasValue, $"Present {x}", "Not Present"))
End Sub