Ideone.com

download

copy

#!/usr/bin/perl
use bigint;$_=<>;while($_>70){$_-=2*chop;}print

Success #stdin #stdout 0.05s 8584KB

stdin

copy

231584178474632390847141970017375815706539969331281128078915168015826259279872

stdout

copy

https://ideone.com/zd6hCN

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!