用r语言写一个冒泡排序
时间: 2023-05-22 22:01:03 浏览: 34
Sure, here's an example of bubble sort implemented in R:
```
bubble_sort <- function(arr) {
n <- length(arr)
for (i in 1:(n-1)) {
for (j in 1:(n-i)) {
if (arr[j] > arr[j+1]) {
temp <- arr[j]
arr[j] <- arr[j+1]
arr[j+1] <- temp
}
}
}
return(arr)
}
# Example usage:
arr <- c(5, 3, 8, 1, 2)
sorted_arr <- bubble_sort(arr)
print(sorted_arr)
```
This implementation of bubble sort takes an array `arr` as input and returns a sorted array using the bubble sort algorithm. The algorithm works by repeatedly swapping adjacent elements if they are in the wrong order, until the array is sorted.
相关问题
用php写一个冒泡排序
好的,以下是用PHP语言写的冒泡排序代码:
```
<?php
function bubbleSort($arr) {
$len = count($arr);
for ($i = 0; $i < $len - 1; $i++) {
for ($j = 0; $j < $len - 1 - $i; $j++) {
if ($arr[$j] > $arr[$j + 1]) {
$temp = $arr[$j];
$arr[$j] = $arr[$j + 1];
$arr[$j + 1] = $temp;
}
}
}
return $arr;
}
$arr = array(5, 9, 3, 7, 1, 8, 2, 4, 6);
echo "排序前:";
print_r($arr);
echo "<br>";
$arr = bubbleSort($arr);
echo "排序后:";
print_r($arr);
?>
```
当然,这只是一个简单的例子,实际使用中需要考虑到各种情况,如数组为空、元素重复等。
用R写一段冒泡排序代码
好的,以下是用R语言实现冒泡排序的代码:
```R
bubble_sort <- function(x) {
n <- length(x)
for (i in 1:(n-1)) {
for (j in 1:(n-i)) {
if (x[j] > x[j+1]) {
temp <- x[j]
x[j] <- x[j+1]
x[j+1] <- temp
}
}
}
return(x)
}
# 示例
x <- c(3, 7, 1, 8, 5)
bubble_sort(x)
```
输出结果为:
```
[1] 1 3 5 7 8
```
该函数接受一个数值型向量作为输入,并返回一个按升序排列的数值型向量。冒泡排序的基本思路是从头到尾迭代待排序的序列,将相邻的元素进行比较,如果前面的元素比后面的元素大,则交换它们的位置,一轮迭代下来,最后一个元素就会被确定下来,然后对剩下的元素重复此过程,直到所有元素都排好序。