プログラマ専用SNS ミクプラ

コード:

object Main
{
	def main(args : Array[String])
	{
		var f = () => (Integer parseInt System.console.readLine)
		var (n, r) = (f(), f())
		println((Main ! n) / (Main ! n - r))
	}

	def !(n : Int) : Long = if (n > 0) n * (Main ! n - 1)  else 1
}

コード:

public class fact {
	static int fact(int n,int r){
		return n < r ? 1 : n * fact(n - 1,r);
	}
	public static void main(String[] args){
		int n=Integer.parseInt(args[0]);
		int r=Integer.parseInt(args[1]);
		System.out.println(n + "P" + r + "=" + fact(n,r));
	}
}

コード:

proc permute { n r } {
	if {$n < $r} {
		return 1
	} else {
		return [expr $n * [permute [expr $n - 1] $r]]
	}
}

if {$argc == 2} {
	set n [lindex $argv 0]
	set r [lindex $argv 1]

	puts [permute $n [expr $n - $r + 1]]
}

コード:

n = ARGV[0].to_i
r = ARGV[1].to_i
 
result = 1
 
for i in (n-r+1)..n
        result *= i
end
 
print "#{n.to_s}P#{r.to_s} = #{result}\n"

コード:

   	 
   	
		     
	
		   	
	
		    
			
		        
   	
			 
 
		       	

	         
   	
			
        	 
   	 
			    
				  
   	 
 
			     
			   	
	  	    
 
			    	
	  	 
 
	       		

 
      	 

        		
   	 
				
 	   	 	 
	
  
         	
 


          



zyunretu

コード:

#include <stdio.h>

int main(void) {
	unsigned int n,r,result;
	scanf("%u%u",&n,&r);
	asm volatile (
		"mov %1,%%ebx\n\t"
		"mov %2,%%ecx\n\t"
		"mov $0,%%eax\n\t"
		"cmp $0,%%ebx\n\t"
		"jbe loopend\n\t"
		"cmp $0,%%ecx\n\t"
		"jb loopend\n\t"
		"mov $1,%%eax\n\t"
		"loopstart:\n\t"
		"cmp $0,%%ecx\n\t"
		"jbe loopend\n\t"
		"mul %%ebx\n\t"
		"dec %%ebx\n\t"
		"dec %%ecx\n\t"
		"jmp loopstart\n\t"
		"loopend:\n\t"
		"mov %%eax,%0\n\t"
	: "=m"(result)
	: "m"(n),"m"(r)
	: "%eax","%ebx","%ecx","%edx");
	printf("%u\n",result);
	return 0;
}

コード:

import Control.Applicative ((<$>))
 
main = do [n,m] <- map read <$> words <$> getLine
          print $ product [n-m+1..n]

コード:

<input id=n><input id=r><input type=button id=nPr>
<script>
document.getElementById('nPr').onclick=function(){
  var n=document.getElementById('n').value;
  var r=document.getElementById('r').value;
  var p=1;
  for(r=n-r+1; r<=n; r++) p*=r;
  alert(p);
}
</script>

コード:

function permute(n,r)
    if(n<r) then
        return 1
    else
        return n*permute(n-1,r)
    end
end
print(permute(io.read(),io.read()))

コード:

$n = $_GET["n"];
$r = $_GET["r"];
$url = 'http://www.google.co.jp/search?q=(' . $n . '+choose+' . $r . ')+*+' . $r . '!';
header("HTTP/1.1 302 Found");
header("Location: " . $url);

コード:

#include <iostream>
using namespace std;

int main(){
	int n, r;
	cin >> n >> r;
	cout <<
"#include <iostream> \n" <<
"using namespace std; \n " <<
"template< int N > \n " <<
"struct Int{ \n " <<
"	enum { value = N }; \n " <<
"}; \n " <<
"template< typename T >  \n " <<
"struct Factorial{ \n " <<
"}; \n " <<

"template < int N > \n " <<
"struct Factorial< Int <N> >{ \n " <<
"	enum { value = Int<N>::value * Factorial< Int <N - 1> >::value }; \n " <<
"}; \n " <<

"template <> \n " <<
"struct Factorial< Int <0 > >{ \n " <<
"	enum { value = Int<1>::value }; \n " <<
"}; \n " <<

"template< typename T , typename U> \n " <<
"struct nPr{ \n " <<
"}; \n " <<

"template < int N , int R > \n " <<
"struct nPr< Int<N>, Int<R> >{ \n " <<
"	enum { value = Factorial< Int<N> >::value / Factorial< Int<R> >::value }; \n " << 
"}; \n " <<

"int main(){ \n " <<
"	cout << nPr< Int<" << n <<">, Int<" <<r <<"> >::value <<endl; \n " <<
"} \n " << endl;
}

コード:

import javax.script.*;

public class Main
{
	public static void main(String[] args) throws ScriptException
	{
		int n = Integer.parseInt(System.console().readLine());
		int m = n - Integer.parseInt(System.console().readLine());
		ScriptEngine se = new ScriptEngineManager().getEngineByName("JavaScript");
		StringBuilder sb = new StringBuilder("print(");

		for (sb.append(n--); n > m; n--)
		{
			sb.append('*').append(n);
		}

		se.eval(sb.append(')').toString());
	}
}

コード:

let f n r = Array.init (n-r) (fun i -> (n-i));;
let main = 
	let n = int_of_string Sys.argv.(1) in
	let r = int_of_string Sys.argv.(2) in
		Printf.printf "%d\n" (Array.fold_left (fun x y -> x * y) 1 (f n r));;

コード:

全体とは変数
選ぶ数とは変数
答えとは変数
答えは1
「ｎは？」と尋ねる
全体はそれ
「ｒは？」と尋ねる
選ぶ数はそれ
全体から全体-選ぶ数+1まで繰り返す
　答えは答え×それ
答えを表示

コード:

import javafx.geometry.*;
import javafx.stage.*;
import javafx.scene.*;
import javafx.scene.control.*;
import javafx.scene.input.*;
import javafx.scene.layout.*;
import javafx.scene.text.*;

var textBoxN = TextBox
{
	columns : 3
}

var textBoxR = TextBox
{
	columns : 3
}

var labelAns = Label
{
	font : Font
	{
		size : 20
	}
}

Stage
{
	title : "Permutation"

	scene : Scene
	{
		content :
		[
			VBox
			{
				content :
				[
					HBox
					{
						content :
						[
							textBoxN, textBoxR,
							Button
							{
								text : "Permutation"

								onMouseClicked : function(e : MouseEvent) : Void
								{
									var n = Integer.parseInt(textBoxN.text);
									var r = n - Integer.parseInt(textBoxR.text) + 1;
									var nums = [r..n];
									var ans = 1;

									for (i in nums)
									{
										ans *= i;
									}
									labelAns.text = ans.toString();
								}
							}
						]
					},
					labelAns
				]
			}
		]
	}
}

コード:

#!/bin/bash

if [ $# -eq 2 ]
then
	let n=$1
	let m=$2
	let p=1
	if [ $n -lt $m ]
	then
		p=1
	else
		let m="${n} - ${m} + 1"
		while [ $m -le $n ]
		do
			let p="${p} * ${m}"
			let m="${m} + 1"
		done
	fi
	echo $p
else
	echo "argument mismatch."
fi

コード:

Module Module1

    Function Fact(ByVal n As Integer, ByVal r As Integer) As Integer
        If n < r Then
            Return 1
        Else
            Return n * Fact(n - 1, r)
        End If
    End Function

    Sub Main()
        Dim n As Integer
        Dim r As Integer
        n = CInt(Console.ReadLine())
        r = CInt(Console.ReadLine())
        Console.WriteLine(n + "P" + r + "=" + Fact(n, r))
    End Sub

End Module

コード:

@ECHO OFF
SETLOCAL

IF "%~1"=="" (
  SET /P N=N
) ELSE (
  SET N=%~1
)
IF "%~2"=="" (
  SET /P R=R
) ELSE (
  SET R=%~2
)

SET /A N0=0+N 2>nul
SET /A R0=0+R 2>nul
SET N=%N0%
SET R=%R0%

SET V=1
:LOOP
SET /A V=V*N
SET /A N=N-1
SET /A R=R-1

IF %R% GEQ 1 GOTO LOOP

ECHO %N0%P%R0% = %V%

コード:

#!/usr/bin/perl

if ($#ARGV == 1) {
	($n, $r) = @ARGV;
	if ($n > 0 && $r > 0 && $n >= $r) {
		$p = 1;
		for (($n - $r + 1)..$n) {
			$p *= $_;
		}
		print $p;
	}
}

コード:

namespace ConsoleApplication1
{
    class Program
    {
        static int fact(int n, int r)
        {
            return n < r ? 1 : n * fact(n - 1, r);
        }

        static void Main(string[] args)
        {
            int n = int.Parse(args[0]);
            int r = int.Parse(args[1]);
            Console.WriteLine(n + "P" + r + "=" + fact(n,r));
        }
    }
}

コード:

#include <iostream>
#include <iterator>
#include <numeric>
#include <functional>

template <typename T>
class CountIterator : public std::iterator<std::input_iterator_tag, T>
{
	T count_;
	const T diff_;
public:
	CountIterator(const T& count = 0, const T& diff = 1) : count_(count), diff_(diff) {}
	const T& operator *() const { return count_; }
	CountIterator& operator ++() { count_ += diff_; return *this; }
	bool operator !=(const CountIterator& rhs) const { return count_ != rhs.count_; }
	bool operator ==(const CountIterator& rhs) const { return !((*this) != rhs); }
};

int main()
{
	typedef unsigned long NumType;
	NumType n, r;
	std::cin >> n >> r;
	std::cout << std::accumulate(CountIterator<NumType>(n, -1), CountIterator<NumType>(n - r), 1, std::multiplies<NumType>()) << std::endl;
}

コード:

Function permute(n as Integer, r as Integer)
    If n<r Then
        permute=1
    Else
        permute=n*permute(n-1,r)
    End If
End Function

Sub main()
    Cells(3,1).value=permute(Cells(1,1).value,Cells(2,1).value)
End Sub

コード:

#include <iostream>
main(){int neko,n,r,i;for(printf("入力=n r:"),scanf("%d %d",&n,&r),i=1,neko=n;i<=r;n*=neko-i++)printf("%d\n",n);}

コード:

n,r;main(a){scanf("%d%d",&n,&r);for(r=n-r;n>r;a*=n--);printf("%d",a);}

コード:

ウィンドウ１の作成
ウィンドウ１を表示する
待機する

手順は　ウィンドウ１の作成
’ウィンドウの設計で自動処理されますので
’次のプログラムは変更しないでください
’<ウィンドウ１>
ウィンドウ１を使う
	その中の大きさを（304，143）へ変える
	その名前を「ウィンドウ１」へ変える
	その背景を&h8000000Fへ変える
テキスト１を作る
	その位置と大きさを（30，20，250，20）へ変える
テキスト２を作る
	その位置と大きさを（30，50，250，20）へ変える
ボタン１を作る
	その位置と大きさを（110，90，90，40）へ変える
’</ウィンドウ１>
’部品の初期化などは、この次から書き加えてください
終わり
手順は　ウィンドウ１のボタン１をクリック
　　　　テキスト１の内容を、ｎへ入れろ
　　　　テキスト２の内容を、ｒへ入れろ
　　　　
　　　　結果は、１
	（ｎ－ｒ＋1）からｎまでカウンタにカウントして繰り返せ
	　　結果は、結果×カウンタ
	繰り返し終わり
　　　　
　　　　結果を表示
終わり

コード:

.method private hidebysig static void  Main(string[] args) cil managed
{
  .entrypoint
  // コード サイズ       86 (0x56)
  .maxstack  4
  .locals init ([0] int32 n,
           [1] int32 r,
           [2] object[] CS$0$0000)
  IL_0000:  ldarg.0
  IL_0001:  ldc.i4.0
  IL_0002:  ldelem.ref
  IL_0003:  call       int32 [mscorlib]System.Int32::Parse(string)
  IL_0008:  stloc.0
  IL_0009:  ldarg.0
  IL_000a:  ldc.i4.1
  IL_000b:  ldelem.ref
  IL_000c:  call       int32 [mscorlib]System.Int32::Parse(string)
  IL_0011:  stloc.1
  IL_0012:  ldc.i4.5
  IL_0013:  newarr     [mscorlib]System.Object
  IL_0018:  stloc.2
  IL_0019:  ldloc.2
  IL_001a:  ldc.i4.0
  IL_001b:  ldloc.0
  IL_001c:  box        [mscorlib]System.Int32
  IL_0021:  stelem.ref
  IL_0022:  ldloc.2
  IL_0023:  ldc.i4.1
  IL_0024:  ldstr      "P"
  IL_0029:  stelem.ref
  IL_002a:  ldloc.2
  IL_002b:  ldc.i4.2
  IL_002c:  ldloc.1
  IL_002d:  box        [mscorlib]System.Int32
  IL_0032:  stelem.ref
  IL_0033:  ldloc.2
  IL_0034:  ldc.i4.3
  IL_0035:  ldstr      "="
  IL_003a:  stelem.ref
  IL_003b:  ldloc.2
  IL_003c:  ldc.i4.4
  IL_003d:  ldloc.0
  IL_003e:  ldloc.1
  IL_003f:  call       int32 ConsoleApplication1.Program::fact(int32,
                                                               int32)
  IL_0044:  box        [mscorlib]System.Int32
  IL_0049:  stelem.ref
  IL_004a:  ldloc.2
  IL_004b:  call       string [mscorlib]System.String::Concat(object[])
  IL_0050:  call       void [mscorlib]System.Console::WriteLine(string)
  IL_0055:  ret
} // end of method Program::Main

.method private hidebysig static int32  fact(int32 n,
                                             int32 r) cil managed
{
  // コード サイズ       18 (0x12)
  .maxstack  8
  IL_0000:  ldarg.0
  IL_0001:  ldarg.1
  IL_0002:  blt.s      IL_0010
  IL_0004:  ldarg.0
  IL_0005:  ldarg.0
  IL_0006:  ldc.i4.1
  IL_0007:  sub
  IL_0008:  ldarg.1
  IL_0009:  call       int32 ConsoleApplication1.Program::fact(int32,
                                                               int32)
  IL_000e:  mul
  IL_000f:  ret
  IL_0010:  ldc.i4.1
  IL_0011:  ret
} // end of method Program::fact

コード:

*define
game

*start
順列の計算をします。
ｎＰｒを計算します。\
*start2
mov %0,0
gosub *inputn
mov %1,0
gosub *inputr
mov %4,%0
mov %5,%1
gosub *calc
ｎ＝%4
ｒ＝%5
答えは%3です。@
もう一度計算しますか？
selnum %6,"はい","いいえ"
if %6=0 goto *start2
end

*inputn
ｎを入力してください。
現在のｎ＝%0
selnum %2,"０","１","２","３","４","５","６","７","８","９","戻る","決定"
if %2=10 goto *backn
if %2=11 return
mul %0,10
add %0,%2
goto *inputn
*backn
div %0,10
goto *inputn


*inputr
ｒを入力してください。
現在のｒ＝%1
selnum %2,"０","１","２","３","４","５","６","７","８","９","戻る","決定"
if %2=10 goto *backr
if %2=11 return
mul %1,10
add %1,%2
goto *inputr
*backr
div %1,10
goto *inputr

*calc
mov %3,1
*calcloop
if %1=0 return
mul %3,%0
sub %0,1
sub %1,1
goto *calcloop

コード:

on (click) {
	var n = _root.num_n.value;
	var r = _root.num_r.value;
	
	var result = 1;
	for (var i = n; i >= n - r + 1; i--) {
		result *= i;
	}
	
	_root.result.text = result;
}

コード:

#N88BASIC
10  Dim N As QWord
20  Dim R As QWord
30  Dim ANS As QWord
40  PRINT "nPrを計算します。"
50  INPUT "n=",N
60  INPUT "r=",R
70  LET ANS=1
80  WHILE R>0
90  	LET ANS=ANS*N
100 	LET N=N-1
110 	LET R=R-1
120 WEND
130 PRINT "答えは";ANS;"です。"
140 GOTO 40

コード:

title "階乗の計算"
mes "nPrを計算します。"
mes "↓n"
input n,100,25,10
mes "↓r"
input r,100,25,10
button goto "計算",*calc
stop
*calc
ans=1
nn=n
rr=r
while rr>0
	ans*=nn
	nn--
	rr--
wend
dialog "答えは"+ans+"です。",0,"結果"
stop

コード:

(define n (string->number (car (command-line-arguments))))
(define r (string->number (cadr (command-line-arguments))))
(display (fold * 1 (iota (- n r) n -1)))

コード:

(use srfi-1)
(define n (string->number (car (command-line-arguments))))
(define r (string->number (cadr (command-line-arguments))))
(display (fold * 1 (iota (- n r) n -1)))