fork download
copy 
  1. my $a=10;
  2. my $b=20;
  3. my $c=30;
  4. my $d=10;
  5. my $e=5;
  6. my $f=5;
  7. my $g=5;
  8. my $h=15;
  9.  
  10. my $a12=4;
  11. my $a13=9;
  12. my $a1 = (($a13/$a12), 9)[($a13/$a12) > 9];
  13. my $a23 = ($a1, 0.111)[$a1 < 0.111];
  14. my $a21 = 1/$a12;
  15. my $a31 = 1/$a13;
  16. my $a32 = 1/$a23;
  17. my $ta1 = ((1/(1+$a21+$a31))+($a12/($a12+1+$a32))+($a13/($a13+$a23+1)))/3;
  18. my $ta2 = (($a21/(1+$a21+$a31))+(1/($a12+1+$a32))+($a23/($a13+$a23+1)))/3;
  19. my $ta3 = (($a31/(1+$a21+$a31))+($a32/($a12+1+$a32))+(1/($a13+$a23+1)))/3;
  20.  
  21. my $b12=4;
  22. my $b13=9;
  23. my $b1 = (($b13/$b12), 9)[($b13/$b12) > 9];
  24. my $b23 = ($b1, 0.111)[$b1 < 0.111];
  25. my $b21 = 1/$b12;
  26. my $b31 = 1/$b13;
  27. my $b32 = 1/$b23;
  28. my $tb1 = ((1/(1+$b21+$b31))+($b12/($b12+1+$b32))+($b13/($b13+$b23+1)))/3;
  29. my $tb2 = (($b21/(1+$b21+$b31))+(1/($b12+1+$b32))+($b23/($b13+$b23+1)))/3;
  30. my $tb3 = (($b31/(1+$b21+$b31))+($b32/($b12+1+$b32))+(1/($b13+$b23+1)))/3;
  31.  
  32. my $c12=4;
  33. my $c13=9;
  34. my $c1 = (($c13/$c12), 9)[($c13/$c12) > 9];
  35. my $c23 = ($c1, 0.111)[$c1 < 0.111];
  36. my $c21 = 1/$c12;
  37. my $c31 = 1/$c13;
  38. my $c32 = 1/$c23;
  39. my $tc1 = ((1/(1+$c21+$c31))+($c12/($c12+1+$c32))+($c13/($c13+$c23+1)))/3;
  40. my $tc2 = (($c21/(1+$c21+$c31))+(1/($c12+1+$c32))+($c23/($c13+$c23+1)))/3;
  41. my $tc3 = (($c31/(1+$c21+$c31))+($c32/($c12+1+$c32))+(1/($c13+$c23+1)))/3;
  42.  
  43. my $d12=4;
  44. my $d13=9;
  45. my $d1 = (($d13/$d12), 9)[($d13/$d12) > 9];
  46. my $d23 = ($d1, 0.111)[$d1 < 0.111];
  47. my $d21 = 1/$d12;
  48. my $d31 = 1/$d13;
  49. my $d32 = 1/$d23;
  50. my $td1 = ((1/(1+$d21+$d31))+($d12/($d12+1+$d32))+($d13/($d13+$d23+1)))/3;
  51. my $td2 = (($d21/(1+$d21+$d31))+(1/($d12+1+$d32))+($d23/($d13+$d23+1)))/3;
  52. my $td3 = (($d31/(1+$d21+$d31))+($d32/($d12+1+$d32))+(1/($d13+$d23+1)))/3;
  53.  
  54. my $e12=4;
  55. my $e13=9;
  56. my $e1 = (($e13/$e12), 9)[($e13/$e12) > 9];
  57. my $e23 = ($e1, 0.111)[$e1 < 0.111];
  58. my $e21 = 1/$e12;
  59. my $e31 = 1/$e13;
  60. my $e32 = 1/$e23;
  61. my $te1 = ((1/(1+$e21+$e31))+($e12/($e12+1+$e32))+($e13/($e13+$e23+1)))/3;
  62. my $te2 = (($e21/(1+$e21+$e31))+(1/($e12+1+$e32))+($e23/($e13+$e23+1)))/3;
  63. my $te3 = (($e31/(1+$e21+$e31))+($e32/($e12+1+$e32))+(1/($e13+$e23+1)))/3;
  64.  
  65. my $f12=4;
  66. my $f13=9;
  67. my $f1 = (($f13/$f12), 9)[($f13/$f12) > 9];
  68. my $f23 = ($f1, 0.111)[$f1 < 0.111];
  69. my $f21 = 1/$f12;
  70. my $f31 = 1/$f13;
  71. my $f32 = 1/$f23;
  72. my $tf1 = ((1/(1+$f21+$f31))+($f12/($f12+1+$f32))+($f13/($f13+$f23+1)))/3;
  73. my $tf2 = (($f21/(1+$f21+$f31))+(1/($f12+1+$f32))+($f23/($f13+$f23+1)))/3;
  74. my $tf3 = (($f31/(1+$f21+$f31))+($f32/($f12+1+$f32))+(1/($f13+$f23+1)))/3;
  75.  
  76. my $g12=4;
  77. my $g13=9;
  78. my $g1 = (($g13/$g12), 9)[($g13/$g12) > 9];
  79. my $g23 = ($g1, 0.111)[$g1 < 0.111];
  80. my $g21 = 1/$g12;
  81. my $g31 = 1/$g13;
  82. my $g32 = 1/$g23;
  83. my $tg1 = ((1/(1+$g21+$g31))+($g12/($g12+1+$g32))+($g13/($g13+$g23+1)))/3;
  84. my $tg2 = (($g21/(1+$g21+$g31))+(1/($g12+1+$g32))+($g23/($g13+$g23+1)))/3;
  85. my $tg3 = (($g31/(1+$g21+$g31))+($g32/($g12+1+$g32))+(1/($g13+$g23+1)))/3;
  86.  
  87. my $calcs=$a*$ta1+$b*$tb1+$c*$tc1+$d*$td1+$e*$te1+$f*$tf1+$g*$tg1;
  88.  
  89. my $c2=0;
  90. if ($calcs<=60)
  91. {
  92. my $c2="ghhggh";
  93. }
  94. else
  95. {
  96. my $c2="*";
  97. }
  98.  
  99. print $c2;
  100.  
  101.  
Success #stdin #stdout 0.01s 5276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/1TNImd
language:
Perl (perl 5.28.1)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

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